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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <string.h> 

#include <shast ra/datacomm/shast raDataH . h> 
#include <shast ra/network/mplex. h> 
#include <shastra/network/rpc.h> 

int 

shaCharOut(fd, pShaChar) 
int fd; 
shaChar *pShaChar; 

{ 

if ( !xdr_shaChar(mplexXDRSEnc(fd), pShaChar)){ 
return -1; 

} 

return 1; 

} 

int 

shaCharIn(fd, pShaChar) 
int fd; 
shaChar *pShaChar; 

{ 

if ( !xdr_shaChar(mplexXDRSDec(fd), pShaChar)){ 
return -1; 

} 

return 1; 

} 
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int 

shaCharsOut(fd, pShaChars) 
int fd; 
shaChars *pShaChars ; 



{ 



} 



if ( !xdr_shaChars(mplexXDRSEnc(fd) , pShaChars) ){ 
return -1; 

} 

return 1; 



int 

shaCharsIn(fd, pShaChars) 
int fd; 
shaChars *pShaChars; 

{ 

shaCharsXDRFree(pShaChars) ; 

if ( !xdr_shaChars(mplexXDRSDec(fd) , pShaChars) ){ 
return -1; 

} 

return 1; 

} 



void 

freeShaChars (pShaChars) 

shaChars *pShaChars; 

{ 

int i; 

if (pShaChars == NULL) { 
return; 

} 

f ree( pShaChars->shaChars_val) ; 
memset( pShaChars, 0, sizeof (shaChars) ) ; 

} 

shaChars * 

copyShaChars (pShaChars, destpShaChars) 
shaChars *pShaChars; 
shaChars *destpShaChars; 



{ 



int i; 
shaChars *newpShaChars; 

if (pShaChars == NULL) { 
return NULL; 

} 

if (destpShaChars == NULL) { 

newpShaChars = (shaChars *) malloc ( sizeof (shaChars) ) ; 
} else { 

newpShaChars = destpShaChars; 

} 
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memcpy(newpShaChars, pShaChars, sizeof (shaChars) ) ; 
newpShaChars->shaChars_val = (shaChar *) 

malloc(newpShaChars->shaChars_len * sizeof ( shaCha r) ) ; 
memcpy(newpShaChars->shaChars_val, pShaChars->shaChars_val, 

pShaChars->shaChars_len * sizeof ( shaChar) ) ; 
return newpShaChars; 

} 

void 

inputShaChars(fp, pShaChars) 
FILE *fp; 
shaChars *pShaChars; 

{ 

int i; 

fscanf(fp, "%d", &pShaChars->shaChars_len) ; 
pShaChars->shaChars_val = (shaChar *) 

malloc(pShaChars->shaChars_len * sizeof (shaChar) ) ; 
for (i = 0; i < pShaChars->shaChars_len; i++) { 

pShaChars->shaChars_val [i] = fgetc(fp); 

} 

} 

void 

outputShaChars(f p, pShaChars) 
FILE *fp; 
shaChars *pShaChars; 

{ 

int i; 

fprintf(fp, "%d\n", pShaChars->shaChars_len) ; 
for (i = 0; i < pShaChars->shaChars_len; i++) { 
f putc(pShaChars->shaChars_val [i] , f p) ; 

} 

} 

void 

shaCharsXDRFree( pShaChars) 
shaChars *pShaChars; 

{ 

xdr_f ree(xdr_shaChars, (char*) pShaChars); 
memset (pShaChars, 0, sizeof (shaChars) ) ; 

} 



int 

shaUCharOut(fd, pShaUChar) 
int fd; 
shaUChar *pShaUChar; 

{ 

if ( !xdr_shaUChar(mplexXDRSEnc(fd) , pShaUChar) ){ 
return -1; 
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} 

return 1; 

} 

int 

shaUCharIn(fd, pShaUChar) 
int fd; 
shaUChar *pShaUCha r; 



{ 



} 



if ( !xdr_shaUChar(mplexXDRSDec(fd), pShaUChar)){ 
return -1; 

} 

return 1; 



int 

shaUCharsOut(fd, pShaUChars) 
int fd; 
shaUChars *pShaUCha rs ; 



{ 



} 



if ( !xdr_shaUChars(mplexXDRSEnc(fd) , pShaUChars) ){ 
return -1; 

} 

return 1; 



int 

shaUCharsIn(fd, pShaUChars) 

int fd; 

shaUChars *pShaUChars; 



{ 



shaUCharsXDRFree(pShaUChars) ; 

if ( !xdr_shaUChars(mplexXDRSDec(fd) , pShaUChars) ){ 
return -1; 

} 

return 1; 



void 

freeShaUChars( pShaUChars) 

shaUChars *pShaUChars; 

{ 

int i; 

if (pShaUChars == NULL) { 
return; 

} 

f ree( pShaUChars->shaUChars_val) ; 
memset( pShaUChars, 0, sizeof ( shaUCha rs ) ) ; 

} 

shaUChars * 
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copyShaUChars (pShaUChars, destpShaUChars) 
shaUChars *pShaUCha rs ; 
shaUChars *destpShaUChars ; 



{ 



int i; 

shaUChars *newpShaUChars; 



if (pShaUChars == NULL) { 
return NULL; 

} 

if (destpShaUChars == NULL) { 

newpShaUChars = (shaUChars *) malloc ( sizeof (shaUChars) ) ; 
} else { 

newpShaUChars = destpShaUChars; 

} 

memcpy(newpShaUChars, pShaUChars, sizeof ( shaUChars) ) ; 
newpShaUChars->shaUChars_val = (shaUChar *) 

malloc(newpShaUChars->shaUChars_len * sizeof (shaUChar) ) ; 
memcpy(newpShaUChars->shaUChars_val, pShaUChars->shaUChars_va 

pShaUChars->shaUChars_len * sizeof (shaUChar) ) ; 
return newpShaUChars; 



void 

inputShaUChars(f p, pShaUChars) 
FILE *fp; 
shaUChars *pShaUChars; 



{ 



int 



fscanf(fp, "%d", &pShaUChars->shaUChars_len) ; 
pShaUChars->shaUChars_val = (shaUChar *) 

malloc(pShaUChars->shaUChars_len * sizeof (shaUChar) ) ; 
for (i = 0; i < pShaUChars->shaUChars_len; i++) { 

pShaUChars->shaUChars_val [i] = fgetc(fp); 

} 



void 

outputShaUChars ( f p, pShaUChars) 
FILE *fp; 
shaUChars *pShaUChars; 



{ 



int 



fprintf(fp, "%d\n", pShaUChars->shaUChars_len) ; 
for (i = 0; i < pShaUChars->shaUChars_len; i++) { 
f putc(pShaUChars->shaUChars_val [i] , f p) ; 

} 



void 



shastraData.c 



7/5/11 12:33 PM 



shaUCharsXDRFree(pShaUChars) 
shaUChars *pShaUCha rs ; 

{ 

xdr_f ree(xdr_shaUChars, (char *) pShaUCha rs ) ; 
memset(pShaUChars, 0, sizeof ( shaUCha rs ) ) ; 

} 

int 

shaShortOut(fd, pShaShort) 
int fd; 
shaShort *pShaShort ; 

{ 

if ( !xdr_shaShort(mplexXDRSEnc(fd) , pShaShort) ){ 
return -1; 

} 

return 1; 

} 

int 

shaShortIn(fd, pShaShort) 
int fd; 
shaShort *pShaShort; 

{ 

if ( !xdr_shaShort(mplexXDRSDec(fd), pShaShort)){ 
return -1; 

} 

return 1; 

} 

int 

shaShortsOut(fd, pShaShorts) 
int fd; 
shaShorts *pShaShorts; 

{ 

if ( !xdr_shaShorts(mplexXDRSEnc(fd) , pShaShort s ) ) { 
return -1; 

} 

return 1; 

} 

int 

shaShortsIn(fd, pShaShorts) 
int fd; 
shaShorts *pShaShorts; 

{ 

shaShortsXDRFree(pShaShorts) ; 

if ( !xdr_shaShorts(mplexXDRSDec(fd) , pShaShorts )) { 
return -1; 

} 

return 1; 

} 
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void 

f reeShaShorts (pShaShorts) 

shaShorts *pShaShorts ; 

{ 

int i; 

if (pShaShorts == NULL) { 
return; 

} 

f ree( pShaShorts->shaShorts_val) ; 
memset(pShaShorts,0, sizeof ( shaShorts ) ) ; 

} 

shaShorts * 

copyShaShorts (pShaShorts, destpShaShorts ) 
shaShorts *pShaShorts; 
shaShorts *destpShaShorts ; 



{ 



} 



int i; 

shaShorts *newpShaShorts ; 

if (pShaShorts == NULL) { 
return NULL; 

} 

if (destpShaShorts == NULL) { 

newpShaShorts = (shaShorts *) malloc ( sizeof ( shaShorts )) ; 
} else { 

newpShaShorts = destpShaShorts; 

} 

memcpy(newpShaShorts, pShaShorts, sizeof ( shaShorts) ) ; 
newpShaShorts->shaShorts_val = (shaShort *) 

malloc(newpShaShorts->shaShorts_len * sizeof ( shaShort )) ; 
memcpy(newpShaShorts->shaShorts_val, pShaShorts->shaShorts_val, 

pShaShorts->shaShorts_len * sizeof ( shaShort )) ; 
return newpShaShorts; 



void 

inputShaShorts(f p, pShaShorts) 
FILE *fp; 
shaShorts *pShaShorts; 



{ 



int 



fscanf(fp, "%d", &pShaShorts->shaShorts_len) ; 
pShaShorts->shaShorts_val = (shaShort *) 

malloc(pShaShorts->shaShorts_len * sizeof ( shaShort )) ; 
for (i = 0; i < pShaShorts->shaShorts_len; i++) { 

f scanf (f p, "%h" , &pShaShorts->shaShorts_val [i] ) ; 

} 



void 
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outputShaShorts (f p, pShaShorts) 
FILE *fp; 
shaShorts *pShaShorts ; 

{ 

int i; 

f printf (f p, "%d\n", pShaShorts->shaShorts_len) ; 
for (i = 0; i < pShaShorts->shaShorts_len; i++) { 
fprintf (fp,"%h", pShaShorts->shaShorts_val [i] ) ; 

} 

} 

void 

shaShortsXDRFree(pShaShorts) 
shaShorts *pShaShorts; 

{ 

xdr_f ree(xd r_shaShorts, (char *) pShaShorts ) ; 
memset(pShaShorts,0, sizeof ( shaShorts ) ) ; 

} 

int 

shaUShortOut(fd, pShaUShort) 
int fd; 
shaUShort *pShaUShort; 

{ 

if ( !xdr_shaUShort(mplexXDRSEnc(fd), pShaUShort ) ) { 
return -1; 

} 

return 1; 

} 

int 

shaUShortIn(fd, pShaUShort) 
int fd; 
shaUShort *pShaUShort; 

{ 

if ( !xdr_shaUShort(mplexXDRSDec(fd), pShaUShort )) { 
return -1; 

} 

return 1; 

} 

int 

shaUShortsOut(fd, pShaUShorts) 
int fd; 
shaUShorts *pShaUShorts ; 

{ 

if ( !xdr_shaUShorts(mplexXDRSEnc(fd) , pShaUShorts ) ) { 
return -1; 

} 

return 1; 

} 
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shaUShortsIn(fd, pShaUShorts) 
int fd; 
shaUShorts *pShaUShorts ; 

{ 

shaUShortsXDRFree(pShaUShorts) ; 

if ( !xdr_shaUShorts(mplexXDRSDec(fd) , pShaUShorts ) ) { 
return -1; 

} 

return 1; 



void 

f reeShaUShorts( pShaUShorts) 

shaUShorts *pShaUShorts ; 

{ 

int i; 



if (pShaUShorts == NULL) { 
return; 

} 

f ree( pShaUShorts->shaUShorts_val) ; 
memset( pShaUShorts, 0, sizeof (shaUShorts) ) ; 



shaUShorts * 

copyShaUShorts ( pShaUShorts, dest pShaUShorts ) 
shaUShorts *pShaUShorts ; 
shaUShorts *destpShaUShorts ; 



{ 



int i; 

shaUShorts *newpShaUShorts ; 



if (pShaUShorts == NULL) { 
return NULL; 

} 

if (destpShaUShorts == NULL) { 

newpShaUShorts = (shaUShorts *) malloc ( sizeof ( shaUShorts )) ; 
} else { 

newpShaUShorts = destpShaUShorts; 

} 

memcpy(newpShaUShorts, pShaUShorts, sizeof ( shaUShorts )) ; 
newpShaUShorts->shaUShorts_val = (shaUShort *) 

malloc ( newpShaUShorts->shaUShorts_len * sizeof ( shaUShort )) ; 
memcpy ( newpShaUShort s-> shaUShort s_va I, pShaUShorts->shaUShorts_val, 

pShaUShorts->shaUShorts_len * sizeof (shaUShort) ) ; 
return newpShaUShorts; 



void 

inputShaUShorts(fp, pShaUShorts) 
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FILE *fp; 
shaUShorts *pShaUShorts ; 

{ 

int i; 

fscanf(fp, "%d", &pShaUShorts->shaUShorts_len) ; 
pShaUShorts->shaUShorts_val = (shaUShort *) 

malloc(pShaUShorts->shaUShorts_len * sizeof ( shaUShort )) ; 
for (i = 0; i < pShaUShorts->shaUShorts_len; i++) { 

f scant (fp,"%h", &pShaUShorts->shaUShorts_val [i] ) ; 

} 



void 

outputShaUShorts(fp, pShaUShorts) 
FILE *fp; 
shaUShorts *pShaUShorts ; 



int i; 

fprintf(fp, "%d\n", pShaUShorts->shaUShorts_len ) ; 
for (i = 0; i < pShaUShorts->shaUShorts_len; i++) { 
fprintf (fp,"%h", pShaUShorts->shaUShorts_val [i] ) ; 

} 



} 



void 

shaUShort sXDRFree(pShaUShorts) 
shaUShorts *pShaUShorts ; 

{ 

xdr_f ree(xdr_shaUShorts, (char*) pShaUShorts ) ; 
memset(pShaUShorts,0, sizeof (shaUShorts) ) ; 



int 

shalnt0ut(fd, pShalnt) 
int fd; 
shalnt *pShaInt; 

{ 

if ( !xdr_shaInt(mplexXDRSEnc(fd) , pShalnt) ){ 
return -1; 

} 

return 1; 



int 

shalntln(fd, pShalnt) 
int fd; 
shalnt *pShaInt; 

{ 

if ( !xdr_shaInt(mplexXDRSDec(fd) , pShalnt) ){ 
return -1; 
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} 

return 1; 

} 

int 

shalnts0ut(fd, pShalnts) 
int fd; 
shalnts *pShaInts; 



{ 



} 



if ( !xdr_shaInts(mplexXDRSEnc(fd) , pShalnts) ){ 
return -1; 

} 

return 1; 



int 

shalntsln(fd, pShalnts) 

int fd; 

shalnts *pShaInts; 



{ 



shalntsXDRFree(pShalnts) ; 

if ( !xdr_shaInts(mplexXDRSDec(fd), pShaInts)){ 
return -1; 

} 

return 1; 



void 

freeShaInts( pShalnts) 

shalnts *pShaInts; 

{ 

int i; 

if (pShalnts == NULL) { 
return; 

} 

f ree( pShaInts->shaInts_val) ; 
memset( pShalnts, 0, sizeof ( shalnts )) ; 

} 

shalnts * 

copyShalnts (pShalnts, dest pShalnts ) 
shalnts *pShaInts; 
shalnts *destpShaInts ; 



{ 



int i; 
shalnts *newpShaInts ; 

if (pShalnts == NULL) { 
return NULL; 

} 

if (destpShalnts == NULL) { 
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} 



newpShalnts = (shalnts *) malloc ( sizeof ( shalnts ) ) ; 
} else { 

newpShalnts = destpShalnts ; 

} 

memcpy( newpShalnts, pShalnts, sizeof ( shalnts )) ; 
newpShaInts->shaInts_val = (shalnt *) 

malloc(newpShaInts->shaInts_len * sizeof ( shalnt )) ; 
memcpy(newpShaInts->shaInts_val, pShaInts->shaInts_val, 

pShaInts->shaInts_len * sizeof ( shalnt )) ; 
return newpShalnts; 



void 

inputShaInts(fp, pShalnts) 
FILE *fp; 
shalnts *pShaInts; 



{ 



} 



int i; 

fscanf(fp, "%d", &pShaInts->shaInts_len) ; 
pShaInts->shaInts_val = (shalnt *) 

malloc ( pShaInts->shaInts_len * sizeof ( shalnt )) ; 
for (i = 0; i < pShaInts->shaInts_len; i++) { 

f scanf ( f p, "%h" , &pShaInts->shaInts_val [i] ) ; 

} 



void 

outputShaInts(fp, pShalnts) 
FILE *fp; 
shalnts *pShaInts; 



{ 



} 



int i; 

fprintf(fp, "%d\n", pShaInts->shaInts_len) ; 
for (i = 0; i < pShaInts->shaInts_len; i++) { 
fprintf (fp,"%h", pShaInts->shaInts_val [i] ) ; 

} 



void 

shalnt sXDRFree( pShalnts) 
shalnts *pShaInts; 

{ 

xdr_f ree(xdr_shalnts, (char *) pShalnts); 
memset( pShalnts, 0, sizeof ( shalnts ) ) ; 

} 

int 

shaUIntOut(fd, pShaUInt) 
int fd; 
shaUInt *pShaUInt; 



Page 12 of 30 



shastraData.c 



7/5/11 12:33 PM 



{ 

if ( !xdr_shaUInt(mplexXDRSEnc(fd) , pShaUInt) ){ 
return -1; 

} 

return 1; 

} 

int 

shaUIntIn(fd, pShaUInt) 
int fd; 
shaUInt *pShaUInt; 

{ 

if ( !xdr_shaUInt(mplexXDRSDec(fd) , pShaUInt) ){ 
return -1; 

} 

return 1; 

} 

int 

shaUIntsOut(fd, pShaUInts) 
int fd; 
shaUInts *pShaUInts; 

{ 

if ( !xdr_shaUInts(mplexXDRSEnc(fd) , pShaUInts) ){ 
return -1; 

} 

return 1; 

} 

int 

shaUIntsIn(fd, pShaUInts) 
int fd; 
shaUInts *pShaUInts; 

{ 

shaUIntsXDRFree(pShaUInts) ; 

if ( !xdr_shaUInts(mplexXDRSDec(fd), pShaUInts)){ 
return -1; 

} 

return 1; 

} 



void 

freeShaUInts( pShaUInts) 

shaUInts *pShaUInts; 

{ 

int i; 

if (pShaUInts == NULL) { 
return; 

} 

f ree(pShaUInts->shaUInts_val) ; 
memset( pShaUInts, 0,sizeof (shaUInts) ) ; 
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} 

shaUInts * 

copyShaUInts(pShaUInts, destpShaUInts ) 
shaUInts *pShaUInts; 
shaUInts *destpShaUInts ; 



{ 



} 



int i; 
shaUInts *newpShaUInts ; 

if (pShaUInts == NULL) { 
return NULL; 

} 

if (destpShaUInts == NULL) { 

newpShaUInts = (shaUInts *) malloc ( sizeof ( shaUInts )) ; 
} else { 

newpShaUInts = destpShaUInts; 

} 

memcpy(newpShaUInts, pShaUInts, sizeof ( shaUInts )) ; 
newpShaUInts->shaUInts_val = (shaUInt *) 

malloc(newpShaUInts->shaUInts_len * sizeof ( shaUInt )) ; 
memcpy ( newpShaUInts->shaUInts_val, pShaUInts->shaUInts_val, 

pShaUInts->shaUInts_len * sizeof ( shaUInt )) ; 
return newpShaUInts; 



{ 



void 

inputShaUInts(fp, pShaUInts) 
FILE *fp; 
shaUInts *pShaUInts; 

int i; 

fscanf(fp, "%d", &pShaUInts->shaUInts_len) ; 
pShaUInts->shaUInts_val = (shaUInt *) 

malloc ( pShaUInts->shaUInts_len * sizeof ( shaUInt )) ; 
for (i = 0; i < pShaUInts->shaUInts_len; i++) { 

fscanf (fp,"%h", &pShaUInts->shaUInts_val [i] ) ; 

} 

} 



void 

outputShaUInts(fp, pShaUInts) 
FILE *fp; 
shaUInts *pShaUInts; 



{ 



int i; 

fprintf(fp, "%d\n", pShaUInts->shaUInts_len) ; 
for (i = 0; i < pShaUInts->shaUInts_len; i++) { 
fprintf (fp,"%h", pShaUInts->shaUInts_val [i] ) ; 

} 
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} 

void 

shaUIntsXDRFree(pShaUInts) 
shaUInts *pShaUInts; 

{ 

xdr_f ree(xd r_shaUInts, (char *) pShaUInts); 
memset(pShaUInts,0,sizeof (shaUInts) ) ; 

} 

int 

shaLongOut(fd, pShaLong) 
int fd; 
shaLong *pShaLong; 

{ 

if ( !xdr_shaLong(mplexXDRSEnc(fd) , pShaLong) ){ 
return -1; 

} 

return 1; 

} 

int 

shal_ongIn(fd, pShaLong) 
int fd; 
shaLong *pShaLong; 

{ 

if ( !xdr_shaLong(mplexXDRSDec(fd) , pShaLong) ){ 
return -1; 

} 

return 1; 

} 

int 

shaLongsOut(fd, pShaLongs) 
int fd; 
shaLongs *pShaLongs; 

{ 

if ( !xdr_shaLongs(mplexXDRSEnc(fd) , pSha Longs) ){ 
return -1; 

} 

return 1; 

} 

int 

shaLongsIn(fd, pShaLongs) 
int fd; 
shaLongs *pShaLongs; 

{ 

shaLongsXDRFree(pShaLongs) ; 

if ( !xdr_shaLongs(mplexXDRSDec(fd) , pShaLongs) ){ 
return -1; 

} 

return 1; 
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} 



void 

f reeSha Longs (pSha Longs) 

shaLongs *pShaLongs; 

{ 

int i; 

if (pShaLongs == NULL) { 
return; 

} 

f ree( pShaLongs->shaLongs_val) ; 
memset (pSha Long s,0,sizeof (shaLongs) ) ; 

} 

shaLongs * 

copySha Long s (pSha Longs, destpSha Longs ) 
shaLongs *pShaLongs; 
shaLongs *destpShaLongs ; 

{ 

int i; 
shaLongs *newpShaLongs ; 

if (pShaLongs == NULL) { 
return NULL; 

} 

if (destpShaLongs == NULL) { 

newpShaLongs = (shaLongs *) malloc ( sizeof ( shaLongs )) ; 
} else { 

newpShaLongs = destpShaLongs; 

} 

memcpy(newpShaLongs, pShaLongs, sizeof ( shaLongs )) ; 
newpShaLongs->shaLongs_val = (shaLong *) 

malloc ( newpShaLongs->shaLongs_len * sizeof ( shaLong )) ; 
memcpy ( newpShaLongs->shaLongs_val, pShaLongs->shaLongs_val, 

pShaLongs->shaLongs_len * sizeof ( shaLong )) ; 
return newpShaLongs; 

} 

void 

inputShaLongs(fp, pShaLongs) 
FILE *fp; 



{ 



shaLongs *pShaLongs; 
int i; 

fscanf(fp, "%d", &pShaLongs->shaLongs_len) ; 
pShaLongs->shaLongs_val = (shaLong *) 

malloc(pShaLongs->shaLongs_len * sizeof ( shaLong )) ; 
for (i = 0; i < pShaLongs->shaLongs_len; i++) { 

f scanf (f p, "%h" , &pShaLongs->shaLongs_val [i] ) ; 

} 
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} 

void 

outputShaLongs ( f p, pShaLongs) 
FILE *fp; 
shaLongs *pShaLongs; 

{ 

int i; 

f printf (f p, "%d\n", pShaLongs->shaLongs_len) ; 
for (i = 0; i < pShal_ongs->shal_ongs_len; i++) { 
fprintf (fp,"%h", pShaLongs->shaLongs_val [i] ) ; 

} 

} 

void 

s ha Long sXDRFree ( pSha Longs) 
shaLongs *pShaLongs; 

{ 

xdr_f ree(xd r_shaLongs, (char *) pShaLongs); 
memset (pSha Long s,0,sizeof (shaLongs) ) ; 

} 

int 

shaULongOut(fd, pShaULong) 
int fd; 
shaULong *pShaULong; 

{ 

if ( !xdr_shaULong(mplexXDRSEnc(fd) , pShaULong) ){ 
return -1; 

} 

return 1; 

} 

int 

shaULongIn(fd, pShaULong) 
int fd; 
shaULong *pShaULong; 

{ 

if ( !xdr_shaULong(mplexXDRSDec(fd) , pShaULong) ){ 
return -1; 

} 

return 1; 

} 

int 

shaULongsOut(fd, pShaULongs) 
int fd; 
shaULongs *pShaULongs; 

{ 

if ( !xdr_shaULongs(mplexXDRSEnc(fd) , pShaULongs ) ) { 
return -1; 
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} 

return 1; 

} 



shaULongsIn(fd, pShaULongs) 
int fd; 
shaULongs *pShaULongs ; 

{ 

shaULongsXDRFree(pShaULongs) ; 

if ( !xdr_shaULongs(mplexXDRSDec(fd), pShaULongs ) ) { 
return -1; 

} 

return 1; 



void 

f reeShaU Longs (pShaULongs) 

shaULongs *pShaULongs; 

{ 

int i; 

if (pShaULongs == NULL) { 
return; 

} 

f ree( pShaULongs->shaULongs_val) ; 
memset(pShaULongs,0, sizeof ( shaULongs ) ) ; 

} 

shaULongs * 

copyShaU Longs (pShaULongs, d est pShaULongs ) 
shaULongs *pShaULongs; 
shaULongs *destpShaULongs ; 

{ 

int i; 

shaULongs *newpShaULongs ; 

if (pShaULongs == NULL) { 
return NULL; 

} 

if (destpShaULongs == NULL) { 

newpShaULongs = (shaULongs *) malloc ( sizeof ( shaULongs )) ; 
} else { 

newpShaULongs = destpShaULongs; 

} 

memcpy(newpShaULongs, pShaULongs, sizeof ( shaULongs )) ; 
newpShaULongs->shaULongs_val = (shaULong *) 

malloc ( newpShaULongs->shaULongs_len * sizeof ( shaULong )) ; 
memcpy(newpShaULongs->shaULongs_val, pShaULongs->shaULongs_val, 

pShaULongs->shaULongs_len * sizeof ( shaULong )) ; 
return newpShaULongs; 

} 
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void 

inputShaULongs ( f p, pShaULongs) 
FILE *fp; 
shaULongs *pShaULongs ; 

{ 

int i; 

fscanf(fp, "%d", &pShaULongs->shaULongs_len) ; 
pShaULongs->shaULongs_val = (shaULong *) 

malloc(pShaULongs->shaULongs_len * sizeof ( shaULong )) ; 
for (i = 0; i < pShaULongs->shaULongs_len ; i++) { 

fscanf (fp,"%h", &pShaULongs->shaULongs_val [i] ) ; 

} 

} 

void 

outputShaULongs (f p, pShaULongs) 
FILE *fp; 
shaULongs *pShaULongs; 

{ 

int i; 

fprintf(fp, "%d\n", pShaULongs->shaULongs_len) ; 
for (i = 0; i < pShaULongs->shaULongs_len ; i++) { 
fprintf (fp,"%h", pShaULongs->shaULongs_val [i] ) ; 

} 

} 

void 

shaU Long sXDRFree( pShaULongs) 
shaULongs *pShaULongs; 

{ 

xdr_f ree(xd r_shaULongs, (char *) pShaULongs); 
memset(pShaULongs,0, sizeof ( shaULongs ) ) ; 

} 

int 

shaFloatOut(fd, pShaFloat) 
int fd; 
shaFloat *pShaFloat; 

{ 

if ( !xdr_shaFloat(mplexXDRSEnc(fd) , pShaFloat) ){ 
return -1; 

} 

return 1; 

} 

int 

shaFloatIn(fd, pShaFloat) 
int fd; 
shaFloat *pShaFloat; 
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{ 

if ( !xdr_shaFloat(mplexXDRSDec(fd), pShaFloat ) ) { 
return -1; 

} 

return 1; 

} 

int 

shaFloatsOut(fd, pShaFloats) 
int fd; 
shaFloats *pShaFloats ; 



{ 



} 



if ( !xdr_shaFloats(mplexXDRSEnc(fd) , pShaFloats ) ) { 
return -1; 

} 

return 1; 



int 

shaFloatsIn(fd, pShaFloats) 
int fd; 
shaFloats *pShaFloats; 

{ 

shaFloatsXDRFree(pShaFloats) ; 

if ( !xdr_shaFloats(mplexXDRSDec(fd) , pShaFloats )) { 
return -1; 

} 

return 1; 

} 



void 

freeShaFloats( pShaFloats) 

shaFloats *pShaFloats; 



{ 



} 



int i; 

if (pShaFloats == NULL) { 
return; 

} 

f ree( pSha Float s->s ha Float s_va I) ; 
memset(pSha Float s,0, sizeof ( shaFloats ) ) ; 



shaFloats * 

copySha Floats (pShaFloats, d est pShaFloats ) 

shaFloats *pShaFloats; 

shaFloats *destpShaFloats ; 

{ 

int i; 

shaFloats *newpShaFloats ; 

if (pShaFloats == NULL) { 
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return NULL; 

} 

if (destpShaFloats == NULL) { 

newpShaFloats = (shaFloats *) malloc ( sizeof ( shaFloats ) ) ; 
} else { 

newpShaFloats = destpShaFloats; 

} 

memcpy(newpShaFloats, pShaFloats, sizeof ( shaFloats )) ; 
newpShaFloats->shaFloats_val = (shaFloat *) 

malloc ( newpShaFloats->shaFloats_len * sizeof ( shaFloat )) ; 
memcpy ( newpSha Float s->s ha Float s_va I, pShaFloats->shaFloats_val, 

pShaFloats->shaFloats_len * sizeof ( shaFloat )) ; 
return newpShaFloats; 

} 

void 

inputShaFloats(f p, pShaFloats) 
FILE *fp; 
shaFloats *pShaFloats; 

{ 

int i; 

fscanf(fp, "%d", &pShaFloats->shaFloats_len) ; 
pShaFloats->shaFloats_val = (shaFloat *) 

malloc(pShaFloats->shaFloats_len * sizeof ( shaFloat )) ; 
for (i = 0; i < pShaFloats->shaFloats_len; i++) { 

f scanf (f p, "%h" , &pSha Float s->s ha Float s_va I [i] ) ; 

} 

} 

void 

outputShaFloats ( f p, pShaFloats) 
FILE *fp; 
shaFloats *pShaFloats; 

{ 

int i; 

fprintf(fp, "%d\n", pShaFloats->shaFloats_len) ; 
for (i = 0; i < pShaFloats->shaFloats_len; i++) { 
fprintf (fp,"%h", pShaFloats->shaFloats_val [i] ) ; 

} 

} 

void 

shaFloat sXDRFree( pShaFloats) 
shaFloats *pShaFloats; 

{ 

xdr_f ree(xdr_shaFloats, (char *) pShaFloats); 
memset (pShaFloats, 0, sizeof (shaFloats) ) ; 

} 

int 
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shaDoubleOut(fd, pShaDouble) 
int fd; 
shaDouble *pShaDouble; 

{ 

if ( !xdr_shaDouble(mplexXDRSEnc(fd) , pShaDouble) ) { 
return -1; 

} 

return 1; 



int 

shaDoubleIn(fd, pShaDouble) 
int fd; 
shaDouble *pShaDouble; 

{ 

if ( !xdr_shaDouble(mplexXDRSDec(fd) , pShaDouble) ){ 
return -1; 

} 

return 1; 



int 

shaDoublesOut(fd, pShaDoubles) 
int fd; 
shaDoubles *pShaDoubles ; 

{ 

if ( !xdr_shaDoubles(mplexXDRSEnc(fd) , pShaDoubles )) { 
return -1; 

} 

return 1; 



int 

shaDoublesIn(fd, pShaDoubles) 
int fd; 
shaDoubles *pShaDoubles ; 

{ 

shaDoublesXDRFree(pShaDoubles) ; 

if ( !xdr_shaDoubles(mplexXDRSDec(fd) , pShaDoubles )) { 
return -1; 

} 

return 1; 



void 

f reeShaDoubles ( pShaDoubles) 

shaDoubles *pShaDoubles ; 

{ 

int i; 

if (pShaDoubles == NULL) { 
return; 
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} 

f ree( pShaDoubles->shaDoubles_val) ; 
memset(pShaDoubles,0, sizeof ( shaDoubles ) ) ; 

} 

shaDoubles * 

copyShaDoubles ( pShaDoubles, destpShaDoubles ) 
shaDoubles *pShaDoubles ; 
shaDoubles *destpShaDoubles ; 

{ 

int i; 

shaDoubles *newpShaDoubles ; 

if (pShaDoubles == NULL) { 
return NULL; 

} 

if (destpShaDoubles == NULL) { 

newpShaDoubles = (shaDoubles *) malloc ( sizeof ( shaDoubles )) ; 
} else { 

newpShaDoubles = destpShaDoubles; 

} 

memcpy(newpShaDoubles, pShaDoubles, sizeof ( shaDoubles )) ; 
newpShaDoubles->shaDoubles_val = (shaDouble *) 

malloc(newpShaDoubles->shaDoubles_len * sizeof ( shaDouble) ) ; 
memcpy(newpShaDoubles->shaDoubles_val, pShaDoubles->shaDoubles_val, 

pShaDoubles->shaDoubles_len * sizeof ( shaDouble) ) ; 
return newpShaDoubles; 



void 

inputShaDoubles ( f p, pShaDoubles) 
FILE *fp; 
shaDoubles *pShaDoubles ; 

{ 

int i; 



fscanf(fp, "%d", &pShaDoubles->shaDoubles_len) ; 
pShaDoubles->shaDoubles_val = (shaDouble *) 

malloc(pShaDoubles->shaDoubles_len * sizeof ( shaDouble) ) ; 
for (i = 0; i < pShaDoubles->shaDoubles_len; i++) { 

f scanf (f p, "%h" , &pShaDoubles->shaDoubles_val [i] ) ; 

} 



void 

output ShaDoubles (fp, pShaDoubles) 
FILE *fp; 
shaDoubles *pShaDoubles ; 

{ 

int i; 



fprintf(fp, "%d\n", pShaDoubles->shaDoubles_len ) ; 
for (i = 0; i < pShaDoubles->shaDoubles_len; i++) { 
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fprintf (fp,"%h", pShaDoubles->shaDoubles_val [i] ) ; 

} 

} 

void 

shaDoublesXDRFree(pShaDoubles) 
shaDoubles *pShaDoubles ; 

{ 

xdr_f ree(xdr_shaDoubles, (char*) pShaDoubles ) ; 
memset(pShaDoubles,0, sizeof ( shaDoubles ) ) ; 

} 

int 

shaStringOut(fd, pShaString) 
int fd; 
shaString *pShaSt ring ; 

{ 

if ( !xdr_shaString (mplexXDRSEnc ( f d ) , pShaString) ){ 
return -1; 

} 

return 1; 

} 

int 

shaStringIn(fd, pShaString) 
int fd; 
shaString *pShaString; 

{ 

if ( !xdr_shaString (mplexXDRSDec ( f d ) , pShaString) ){ 
return -1; 

} 

return 1; 

} 

int 

shaStringsOut(fd, pShaStrings) 
int fd; 
shaStrings *pShaSt rings ; 

{ 

if ( !xdr_shaStrings(mplexXDRSEnc(fd) , pShaSt rings) ){ 
return -1; 

} 

return 1; 

} 

int 

shaStringsIn(fd, pShaStrings) 
int fd; 
shaStrings *pShaSt rings ; 

{ 

shaStringsXDRFree(pShaStrings) ; 

if ( !xdr_shaStrings(mplexXDRSDec(fd) , pShaStrings) ){ 
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return -1; 

} 

return 1; 

} 

void 

f reeShaSt rings ( pShaSt rings) 

shaStrings *pShaSt rings ; 

{ 

int i; 

if (pShaStrings == NULL) { 
return; 

} 

for(i=0; i<pShaSt ring s->shaSt ring s_len; i++){ 
f ree(pShaStrings->shaStrings_val [i] ) ; 

} 

f ree( pShaSt rings->shaSt rings_val) ; 
memset(pShaSt rings, 0, sizeof ( shaSt rings ) ) ; 



} 



shaStrings * 

copyShaSt rings ( pShaSt rings, destpShaSt rings ) 
shaStrings *pShaSt rings ; 
shaStrings *destpShaSt rings ; 



{ 



} 



int i; 

shaStrings *newpShaSt rings ; 

if (pShaStrings == NULL) { 
return NULL; 

} 

if (destpShaStrings == NULL) { 

newpShaStrings = (shaStrings *) malloc ( sizeof ( shaSt rings )) ; 
} else { 

newpShaStrings = destpShaStrings; 

} 

memcpy(newpShaStrings, pShaStrings, sizeof ( shaSt rings )) ; 
newpShaSt rings->shaSt rings_val = (shaString *) 

malloc(newpShaStrings->shaStrings_len * sizeof ( shaSt ring )) ; 
for(i=0; i<pShaStrings->shaStrings_len; i++){ 

newpShaStrings->shaStrings_val [i] = 

strdup(pShaStrings->shaStrings_val [i] ) ; 

} 

return newpShaStrings; 



void 

inputShaStrings (f p, pShaStrings) 
FILE *fp; 
shaStrings *pShaSt rings ; 

{ 

int i; 
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fscanf(fp, "%d", &pShaStrings->shaStrings_len) ; 
pShaSt rings->shaSt rings_val = (shaString *) 

malloc(pShaStrings->shaStrings_len * sizeof ( shaSt ring ) ) ; 
for (i = 0; i < pShaSt rings->shaSt rings_len; i++) { 
pShaStrings->shaStrings_val [i] = malloc ( 1024) ; 
fgets (pShaSt ring s->shaSt ring s_val [i] , 1024, f p) ; 
pShaStrings->shaStrings_val [i] = 

realloc(pShaStrings->shaStrings_val [i] , 

strlen(pShaStrings->shaStrings_val [i] ) ) ; 

} 

} 

void 

output ShaSt rings (fp, pShaSt rings) 
FILE *fp; 
shaStrings *pShaSt rings ; 

{ 

int i; 

fprintf(fp, "%d\n", pShaSt rings->shaSt rings_len ) ; 
for (i = 0; i < pShaSt rings->shaSt rings_len; i++) { 

fprintf(fp, "%s\n", pShaSt rings->shaSt rings_val [i] ) ; 

} 



} 



void 

shaSt ring sXDRFree(pShaSt rings) 
shaStrings *pShaSt rings ; 

{ 

xdr_f ree(xdr_shaStrings, (char*) pShaSt rings ) ; 
memset(pShaSt rings, 0, sizeof ( shaSt rings ) ) ; 

} 

int 

shaBunchOut(fd, pShaBunch) 
int fd; 
shaBunch *pShaBunch; 

{ 

if ( !xdr_shaBunch(mplexXDRSEnc(fd) , pShaBunch) ){ 
return -1; 

} 

return 1; 

} 

int 

shaBunchIn(fd, pShaBunch) 
int fd; 
shaBunch *pShaBunch; 

{ 

shaBunchXDRFree(pShaBunch) ; 

if ( !xdr_shaBunch(mplexXDRSDec(fd) , pShaBunch) ){ 
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return -1; 

} 

return 1; 

} 

int 

shaBunchsOut(fd, pShaBunchs ) 
int fd; 
shaBunchs *pShaBunchs ; 

{ 

if ( !xdr_shaBunchs (mplexXDRSEnc ( f d ) , pShaBunchs ) ){ 
return -1; 

} 

return 1; 

} 

int 

shaBunchsIn(fd, pShaBunchs) 
int fd; 
shaBunchs *pShaBunchs; 

{ 

shaBunchsXDRFree(pShaBunchs) ; 

if ( !xdr_shaBunchs(mplexXDRSDec(fd) , pShaBunchs) ){ 
return -1; 

} 

return 1; 

} 

void 

f reeShaBunch(pShaBunch) 

shaBunch *pShaBunch; 

{ 

int i; 

if (pShaBunch == NULL) { 
return; 

} 

f ree( pShaBunch->shaBunch_val) ; 
memset(pSha Bunch, 0, sizeof ( shaBunch ) ) ; 

} 



void 

freeShaBunchs (pShaBunchs) 

shaBunchs *pShaBunchs; 

{ 

int i; 

if (pShaBunchs == NULL) { 
return; 

} 

f or( i=0; i<pShaBunchs->shaBunchs_len ; i++) { 

f reeShaBunch(&pShaBunchs->shaBunchs_val [i] ) ; 
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} 

f ree( pShaBunchs->shaBunchs_val) ; 
memset(pSha Bunch s,0, sizeof ( shaBunchs ) ) ; 

} 

shaBunch * 

copyShaBunch(pShaBunch, destpShaBunch) 
shaBunch *pShaBunch; 
shaBunch *destpShaBunch; 

{ 

int i; 
shaBunch *newpShaBunch; 

if (pShaBunch == NULL) { 
return NULL; 

} 

if (destpShaBunch == NULL) { 

newpShaBunch = (shaBunch *) malloc ( sizeof (shaBunch) ) ; 
} else { 

newpShaBunch = destpShaBunch; 

} 

memcpy( newpShaBunch, pShaBunch, sizeof ( shaBunch )) ; 
newpShaBunch->shaBunch_val = (char *) 

malloc ( newpShaBunch->shaBunch_len) ; 
memcpy ( newpShaBunch->shaBunch_val, pShaBunch->shaBunch_val, 

pShaBunch->shaBunch_len) ; 
return newpShaBunch; 

} 

shaBunchs * 

copyShaBunchs (pShaBunchs, de stpSha Bunch s ) 
shaBunchs *pShaBunchs; 
shaBunchs *destpShaBunchs ; 

{ 

int i; 

shaBunchs *newpShaBunchs ; 

if (pShaBunchs == NULL) { 
return NULL; 

} 

if (destpShaBunchs == NULL) { 

newpShaBunchs = (shaBunchs *) malloc ( sizeof ( shaBunchs )) ; 
} else { 

newpShaBunchs = destpShaBunchs; 

} 

memcpy(newpShaBunchs, pShaBunchs, sizeof ( shaBunchs )) ; 
newpShaBunchs->shaBunchs_val = (shaBunch *) 

malloc ( newpShaBunchs->shaBunchs_len * sizeof (shaBunch) ) ; 
f or( i=0; i<pShaBunchs->shaBunchs_len ; i++) { 

copyShaBunch(&pShaBunchs->shaBunchs_val [i] , 
&newpShaBunchs->shaBunchs_val [i] ) ; 

} 

return newpShaBunchs; 
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void 

inputShaBunch(f p, pShaBunch) 
FILE *fp; 
shaBunch *pShaBunch ; 

{ 

int i; 

fscanf(fp, "%d", &pShaBunch->shaBunch_len ) ; 
pShaBunch->shaBunch_val = (char *) 

malloc ( pShaBunch->shaBunch_len ) ; 
for (i = 0; i < pShaBunch->shaBunch_len; i++) { 

pShaBunch->shaBunch_val [i] = fgetc(fp); 

} 

} 

void 

outputShaBunch(fp, pShaBunch) 
FILE *fp; 
shaBunch *pShaBunch; 

{ 

int i; 

fprintf(fp, "%d\n", pShaBunch->shaBunch_len) ; 
for (i = 0; i < pShaBunch->shaBunch_len; i++) { 
f putc(pShaBunch->shaBunch_val [i] , f p) ; 

} 

} 

void 

inputShaBunchs ( f p, pShaBunchs) 
FILE *fp; 
shaBunchs *pShaBunchs; 

{ 

int i; 

fscanf(fp, "%d", &pShaBunchs->shaBunchs_len) ; 
pShaBunchs->shaBunchs_val = (shaBunch *) 

malloc(pShaBunchs->shaBunchs_len * sizeof (shaBunch) ) ; 
for (i = 0; i < pShaBunchs->shaBunchs_len ; i++) { 

inputShaBunch(fp,&pShaBunchs->shaBunchs_val [i] ) ; 

} 

} 

void 

outputShaBunchs (f p, pShaBunchs) 
FILE *fp; 
shaBunchs *pShaBunchs; 

{ 

int i; 

fprintf(fp, "%d\n", pShaBunchs->shaBunchs_len) ; 
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for (i = 0; i < pShaBunchs->shaBunchs_len ; i++) { 

outputShaBunch(f p, &pShaBunchs->shaBunchs_val [i] ) ; 

} 

} 



shaBunchXDRFree(pShaBunch) 
shaBunch *pShaBunch ; 

{ 

xdr_f ree(xd r_shaBunch, (char *) pShaBunch ) ; 
memset (pSha Bunch, 0,sizeof (shaBunch) ) ; 

} 

void 

shaBunchsXDRFree(pShaBunchs) 
shaBunchs *pShaBunchs; 

{ 

xdr_f ree(xd r_shaBunchs, (char *) pShaBunchs); 
memset (pSha Bunch s,0, sizeof ( shaBunchs ) ) ; 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* Please do not edit this file. 

* It was generated using rpcgen. 

*/ 

#include <rpc/rpc.h> 

#include <shast ra/datacomm/shast raData . h> 
bool_t 

xdr_sha0bjld(xdrs, objp) 
XDR *xdrs; 
shaObjld *objp; 

{ 

if ( !xdr_u_long(xdrs, &obj p->lSIdTag ) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->HdTag ) ) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_shaObjId_P(xdrs, objp) 
XDR *xdrs; 
shaObjId_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaObj Id ) , xd r_shaObj Id ) ) 
{ 
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return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_sha0bjlds(xdrs, objp) 
XDR *xdrs; 
shaObjlds *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaObj Ids_val, (u_int *)&objp-> 
sha0bjlds_len, ~0, sizeof ( shaObj Id ) , xd r_shaObj Id ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaObj Ids_P(xdrs, objp) 
XDR *xdrs; 
shaObjIds_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaObj Ids ) , xd r_shaObj Ids ) 
) { 

return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaChar(xdrs, objp) 
XDR *xdrs; 
shaChar *objp; 

{ 

if ( !xdr_char(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaChars(xdrs, objp) 
XDR *xdrs; 
shaChars *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaChars_val, (u_int *)&objp-> 
shaChars_len, ~0, sizeof (char) , xdr_char)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 
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xdr_shaChars_P(xdrs, objp) 
XDR *xdrs; 
shaChars_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof (shaChars) , xdr_shaChars) ) 
{ 

return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaUChar(xdrs, objp) 
XDR *xdrs; 
shaUChar *objp; 

{ 

if ( !xdr_u_char(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaUChars(xdrs, objp) 
XDR *xdrs; 
shaUChars *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaUChars_val, (u_int *)&objp-> 
shaUChars_len, ~0, sizeof (u_char) , xdr_u_char)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaUChars_P(xdrs, objp) 
XDR *xdrs; 
shaUChars_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof (shaUChars) , xdr_shaUChars) 
) { 

return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaShort(xdrs, objp) 
XDR *xdrs; 
shaShort *objp; 

{ 

if ( !xdr_short(xdrs, objp)) { 
return (FALSE); 
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} 

return (TRUE); 

} 

bool_t 

xdr_shaShorts(xdrs, objp) 
XDR *xdrs; 
shaShorts *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaShorts_val, (u_int *)&objp-> 
shaShorts_len, ~0, sizeof ( short ) , xdr_short)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaShorts_P(xdrs, objp) 
XDR *xdrs; 
shaShorts_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaShorts ) , xd r_shaShorts ) 
) { 

return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaUShort(xdrs, objp) 
XDR *xdrs; 
shaUShort *objp; 

{ 

if ( !xdr_u_short(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaUShorts(xdrs, objp) 
XDR *xdrs; 
shaUShorts *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaUShorts_val, (u_int *)&objp-> 
shaUShorts_len, ~0, sizeof (u_short) , xd r_u_short ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaUShorts_P(xdrs, objp) 
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XDR *xdrs; 
shaUShorts_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaUShorts ) , 
xdr_shaUShorts) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shalnt (xdrs, objp) 
XDR *xdrs; 
shalnt *objp; 

{ 

if ( !xdr_int (xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shalnts(xdrs, objp) 
XDR *xdrs; 
shalnts *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shalnts_val, (u_int *)&objp-> 
shalnts_len, ~0, sizeof (int), xdr_int)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaInts_P(xdrs, objp) 
XDR *xdrs; 
shaInts_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shalnts ) , xd r_shalnts ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaUInt(xdrs, objp) 
XDR *xdrs; 
shaUInt *objp; 

{ 

if ( !xdr_u_int(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 
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} 

bool_t 

xdr_shaUInts(xdrs, objp) 
XDR *xdrs; 
shaUInts *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaUInts_val, (u_int *)&objp-> 
shaUInts_len, ~0, sizeof ( u_int ) , xdr_u_int)) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_shaUInts_P(xdrs, objp) 
XDR *xdrs; 
shaUInts_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaUInts ) , xd r_shaUInts ) ) 
{ 

return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_shaLong(xdrs, objp) 
XDR *xdrs; 
shaLong *objp; 

{ 

if ( !xdr_long(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_shaLongs(xdrs, objp) 
XDR *xdrs; 
shaLongs *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaLongs_val, (u_int *)&objp-> 
shaLongs_len, ~0, sizeof ( long ) , xdr_long)) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_shaLongs_P(xdrs, objp) 
XDR *xdrs; 
shaLongs_P *objp; 
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{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaLongs ) , xd r_shal_ongs ) ) 
{ 

return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_shaULong(xdrs, objp) 
XDR *xdrs; 
shaULong *objp; 

{ 

if ( !xdr_u_long(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_shaULongs(xdrs, objp) 
XDR *xdrs; 
shaULongs *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaULongs_val, (u_int *)&objp-> 
shaULongs_len, ~0, sizeof ( u_long ) , xdr_u_long)) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_shaULongs_P(xdrs, objp) 
XDR *xdrs; 
shaULongs_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaULongs ) , xd r_shaULongs ) 
) { 

return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_shaFloat(xdrs, objp) 
XDR *xdrs; 
shaFloat *objp; 

{ 

if ( !xdr_f loat(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 

} 
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bool_t 

xdr_shaFloats(xdrs, objp) 
XDR *xdrs; 
shaFloats *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaFloats_val, (u_int *)&objp-> 
shaFloats_len, ~0, sizeof ( float ) , xdr_float)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaFloats_P(xdrs, objp) 
XDR *xdrs; 
shaFloats_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaFloats ) , xd r_shaFloats ) 
) { 

return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaDouble(xdrs, objp) 
XDR *xdrs; 
shaDouble *objp; 

{ 

if ( !xdr_double(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaDoubles(xdrs, objp) 
XDR *xdrs; 
shaDoubles *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaDoubles_val, (u_int *)&objp-> 
shaDoubles_len, ~0, sizeof (double) , xdr_double)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaDoubles_P(xdrs, objp) 
XDR *xdrs; 
shaDoubles_P *objp; 

{ 
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if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaDoubles ) , 
xd r_shaDoubles ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaString(xdrs, objp) 
XDR *xdrs; 
shaString *objp; 

{ 

if ( !xdr_string(xdrs, objp, ~0)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaStrings(xdrs, objp) 
XDR *xdrs; 
shaStrings *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&objp->shaStrings_val, (u_int *)&objp-> 
shaStrings_len, ~0, sizeof ( shaSt ring ) , xd r_shaSt ring ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaStrings_P(xdrs, objp) 
XDR *xdrs; 
shaStrings_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaSt rings ) , 
xdr_shaStrings) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaBunch(xdrs, objp) 
XDR *xdrs; 
shaBunch *objp; 

{ 

if ( !xdr_bytes(xdrs, (char **)&obj p->shaBunch_val, (u_int *)&objp-> 
shaBunch_len, ~0)) { 
return (FALSE); 

} 

return (TRUE); 
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bool_t 

xdr_shaBunchs(xdrs, objp) 
XDR *xdrs; 
shaBunchs *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shaBunchs_val, (u_int *)&objp-> 
shaBunchs_len, ~0, sizeof ( shaBunch) , xdr_shaBunch) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shaBunchs_P(xdrs, objp) 
XDR *xdrs; 
shaBunchs_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shaBunchs ) , xd r_shaBunchs ) 
) { 

return (FALSE); 

} 

return (TRUE); 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 

#in elude <shastra/datacomm/shastraHdrH. h> 
#include <shast ra/network/mplex. h> 
#include <shastra/network/rpc.h> 

#define STANDALONEnn 

int 

shastraHdrOut(fd, pSHdr) 
int fd; 
shastraHdr *pSHdr; 

{ 

XDR xdrs; 
int retVal = 0; 

#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_shastraHdr(&xdrs, pSHdr) ){ 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE) ; 

*/ 
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if ( !xdr_shastraHdr(mplexXDRSEnc(fd) , pSHdr) ){ 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



shastraHdrIn(fd, pSHdr) 
int fd; 
shastraHdr *pSHdr; 

{ 

XDR xdrs; 
int retVal = 0; 



shastraHdrXDRFree(pSHdr) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_shastraHdr(&xdrs, pSHdr) ){ 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

xdrstdio_create(mplexXDRSDec(fd) , mplexInSt ream ( f d ) , XDR_DECODE) ; 

*/ 

if ( !xdr_shastraHdr(mplexXDRSDec(fd) , pSHdr) ){ 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



void 

inputHdr(fp, pSHdr) 

FILE *fp; 
shastraHdr *pSHdr; 

{ 

fscanf(fp, "%c", &pSHdr->bProtocol) ; 

fscanf(fp, "%c", &pSHdr->bVersion) ; 

fscanf(fp, "%lu", &pSHdr->lSize) ; 

fscanf(fp, "%lu", &pSHdr->lMesgId) ; 

fscanf(fp, "%lu", &pSHd r->senderTag ) ; 

fscanf(fp, "%lu", &pSHdr->recvrTag) ; 

fscanf(fp, "%lu", &pSHdr->lOpCode) ; 

fscanf(fp, "%hu", &pSHd r->sMsgType) ; 

fscanf(fp, "%hu", &pSHd r->sNumMsgs ) ; 

fscanf(fp, "%hu", &pSHd r->sSeqNum) ; 
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void 

outputHdr(fp, pSHdr) 

FILE *fp; 



shastraHdr 


*pSHdr; 




f printf ( f p, 


"%hu\n'\ 


, &pSHdr- 


->bProtocol) ; 


f p rin t f ( f p , 


"%hu\n'\ 


, &pSHdr- 


->bVe r s ion ) ; 


f printf (fp, 


"%lu\n'\ 


, &pSHdr- 


->lSize) ; 


f printf (fp, 


"%lu\n'\ 


, &pSHdr- 


->lMesgId) ; 


f printf (fp, 


"%lu\n'\ 


, &pSHdr- 


->senderTag) ; 


f printf (fp, 


"%lu\n'\ 


, &pSHdr- 


->recvrTag) ; 


f printf (fp, 


"%lu\n'\ 


, &pSHdr- 


->lOpCode) ; 


f printf (fp, 


"%hu\n" , 


, &pSHdr- 


->sMsgType) ; 


f printf (fp, 


"%hu\n'\ 


, &pSHdr- 


->sNumMsgs) ; 


f printf (fp, 


"%hu\n'\ 


, &pSHdr- 


->sSeqNum) ; 



void 

f reeHdr(pSHdr) 

shastraHdr *pSHdr; 

{ 

int i; 



if (pSHdr == NULL) { 
return; 

} 

memset(pSHdr,0, sizeof ( shast raHd r) ) ; 



shastraHdr * 

copyHdr(pSHdr, destpSHdr) 

shastraHdr *pSHdr; 

shastraHdr *destpSHdr; 

{ 

shastraHdr *newpSHdr; 

int i; 



if (pSHdr == NULL) { 
return NULL; 

} 

if (destpSHdr == NULL) { 

newpSHdr = (shastraHdr *) malloc ( sizeof ( shast raHd r) ) ; 
} else { 

newpSHdr = destpSHdr; 

} 

memcpy( newpSHdr, pSHdr, sizeof ( shast raHd r) ) ; 
return newpSHdr; 
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} 

#ifdef STANDALONE 
main(argc, argv) 

#else /* STANDALONE */ 

shastraHdrMain(argc, argv) 

#endif /* STANDALONE */ 

int argc; 

char **argv; 

{ 

static shastraHdr sHdr; 
shastraHdr *cpSHdr; 

switch (argc) { 

case 1: /* receive sHdr */ 

shastraHdrIn(0 /* stdin */ , &sHdr); 
outputHdr(stdout, &sHdr); 
cpSHdr = copyHdr(&sHdr, NULL); 
outputHdr(stdout, cpSHdr); 
f reeHdr(cpSHdr) ; 

break; 

case 2: /* receive sHdr */ 
inputHd r( stdin, &sHdr); 
#ifdef DEBUG 

outputHdr(stderr, &sHdr); 

#endif 

shastraHdrOutd /* stdout */ , &sHdr); 
break; 

} 

} 



shastraHdrXDRFree(pSHdr) 
shastraHdr *pSHdr; 

{ 

xdr_f ree(xdr_shastraHdr, (char*) pSHdr); 
memset(pSHdr, 0, sizeof ( shast raHd r) ) ; 
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***/ 



-T.-T-.TV 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* Please do not edit this file. 

* It was generated using rpcgen. 

*/ 

#include <rpc/rpc.h> 

#include <shast ra/datacomm/shast raHd r . h> 
bool_t 

xdr_shastraHdr(xdrs, objp) 
XDR *xdrs; 
shastraHdr *objp; 



{ 



if ( !xdr_u_char(xdrs, &obj p->bProtocol) ) { 
return (FALSE); 

} 

if ( !xdr_u_char(xdrs, &obj p->bVersion) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lSize) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lMesgId ) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->senderTag ) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->recvrTag ) ) { 
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return 



(FALSE) ; 



} 

if 



( !xdr_u. 
return 



long(xdrs, &obj p->lOpCode) ) { 
(FALSE) ; 



} 

if 



( !xdr_u. 
return 



short(xdrs, &obj p->sMsgType) ) { 
(FALSE) ; 



} 

if 



( !xdr_u. 
return 



short(xdrs, &obj p->sNumMsgs ) ) { 
(FALSE) ; 



} 

if 



( !xdr_u. 
return 



short(xdrs, &obj p->sSeqNum) ) { 
(FALSE) ; 



} 



return (TRUE); 

} 

bool_t 

xdr_shastraHdr_P(xdrs, objp) 
XDR *xdrs; 
shastraHdr_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shast raHd r) , 
xdr_shastraHdr) ) { 
return (FALSE); 

} 

return (TRUE); 



} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <string.h> 

#include <shast ra/network/mplex. h> 
#include <shastra/network/rpc.h> 
#include <shast ra/shast ra . h> 
#include <shast ra/datacomm/shast raldH. h> 

#define STANDALONEnn 

int 

shastrald0ut(fd, pSId) 
int fd; 
shastrald *pSId; 

{ 

XDR xdrs; 

int retVal = 0; 

#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_shastrald(&xdrs, pSId)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 
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* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE); 

*/ 

if ( !xdr_shastraId(mplexXDRSEnc(fd) , pSId)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 

} 

int 

shastraldln(fd, pSId) 
int fd; 
shastrald *pSId; 

{ 

XDR xdrs; 

int retVal = 0; 

shastraldXDRFree(pSId) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_shastrald(&xdrs, pSId)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 

*/ 

if ( !xdr_shastraId(mplexXDRSDec(fd) , pSId)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

#ifdef SHASTRA4IRIX6 
{ 

int temp; 

temp = pSId->HPAddr; 
pSId->HPAddr = 0; 
pSId->HPAddr = temp; 

pSId->HPAddr = pSId->HPAdd r & 0x00000000f f f f f f f f ; 

} 

#endif 

return retVal; 

} 



shastraldMemOut (buf , size, pSId) 
char *buf; 
int size; 
shastrald *pSId; 
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XDR xdrs; 

int retVal = 0; 

xdrmem_create(&xdrs, buf, size, XDR_ENCODE); 
if ( !xdr_shastrald(&xdrs, pSId)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 



} 



int 

shastraIdMemIn(buf , size, pSId) 
char *buf; 
int size; 
shastrald *pSId; 



{ 



XDR xdrs; 

int retVal = 0; 

shastraldXDRFree(pSId) ; 

xdrmem_create(&xdrs, buf, size, XDR_DECODE); 
if ( !xdr_shastrald(&xdrs, pSId)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 



} 



int 

shastralds0ut(fd, pSIds) 

int fd; 

shastralds *pSIds; 

{ 

XDR xdrs; 

int retVal = 0; 

#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_shastralds(&xdrs, pSIds)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE); 

*/ 

if ( !xdr_shastraIds(mplexXDRSEnc(fd), pSIds)) { 
retVal = -1; 

} 
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#endif /* STANDALONE */ 

return retVal; 

} 

int 

shastraldsln(fd, pSIds) 
int fd; 
shastralds *pSIds; 

{ 

XDR xdrs; 

int retVal = 0; 



shastraldsXDRFree(pSIds) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_shastralds(&xdrs, pSIds)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 

*/ 

if ( !xdr_shastraIds(mplexXDRSDec(fd), pSIds)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



shastraIdsMemOut(buf , size, pSIds) 

char *buf; 

int size; 

shastralds *pSIds; 

{ 

XDR xdrs; 

int retVal = 0; 



xdrmem_create(&xdrs, buf, size, XDR_ENCODE); 
if ( !xdr_shastralds(&xdrs, pSIds)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 



int 

shastraIdsMemIn(buf , size, pSIds) 
char *buf; 
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int size; 
shastralds *pSIds; 



XDR xdrs; 
int retVal = 



shastraldsXDRFree(pSIds) ; 

xdrmem_create(&xdrs, buf, size, XDR_DECODE); 
if ( !xdr_shastralds(&xdrs, pSIds)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 



void 

inputld(fp, pSId) 

FILE *fp; 
shastrald *pSId; 



{ 



} 



int i; 
char sbBuf [128] ; 

fscanf(fp, "%s", sbBuf); 
pSId->nmHost = st rdup( sbBuf ) ; 
fscanf(fp, "%s", sbBuf); 
pSId->nmDisplay = strdup(sbBuf ) ; 
fscanf(fp, "%s", sbBuf); 
pSId->nmApplicn = strdup(sbBuf ) ; 
fscanf(fp, "%s", sbBuf); 
pSId->nmUser = st rdup( sbBuf ) ; 
fscanf(fp, "%s", sbBuf); 
pSId->nmPasswd = st rdup ( sbBuf ) ; 
fscanf(fp, &pSId->HPAddr) ; 

fscanf(fp, &pSId->lSIDTag) ; 

fscanf(fp, "%d", &pSId->iPort ) ; 
fscanf(fp, "%d", &pSId->iProdd ) ; 
fscanf(fp, "%d", &pSId->lPerms ) ; 
fscanf(fp, "%d", &pSId->lHWState) ; 
fscanf(fp, "%lf", &pSId->dLoadAvg) ; 
pSId->iProcId = getpidO; 



void 

outputId(fp, pSId) 

FILE *fp; 
shastrald *pSId; 

{ 

int i; 

fprintf(fp, "%s\n", pSId->nmHost ) ; 

fprintf(fp, "%s\n", pSId->nmDisplay ) ; 
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f printf (f p, "%s\n", pSId->nmApplicn ) ; 

f printf (f p, "%s\n", pSId->nmUser) ; 

fprintf(fp, "%s\n", pSId->nmPasswd ) ; 

fprintf(fp, "%s\n", ipadd r2st r( pSId->lIPAdd r) ) ; 

fprintf(fp, "%lu\n", pSId->lSIDTag ) ; 

fprintf(fp, "%d\n", pSId->iPort) ; 

fprintf(fp, "%d\n", pSId->iProcId ) ; 

fprintf(fp, "%d\n", pSId->lPerms) ; 

fprintf(fp, "%d\n", pSId->lHWState) ; 

fprintf(fp, "%lf\n", pSId->dLoadAvg ) ; 



void 

inputlds(fp, pSIds) 

FILE *fp; 
shastralds *pSIds; 

{ 

int i; 

fscanf(fp, "%d", &pSIds->shastraIds_len) ; 
pSIds->shastraIds_val = ( shast raId_P *) 

malloc(pSIds->shastraIds_len * sizeof ( shast raId_P) ) ; 
for (i = 0; i < pSIds->shast ralds_len; i++) { 

pSIds->shastraIds_val [i] = ( shast raId_P) malloc ( sizeof ( shast raid )) ; 

inputld(fp, pSIds->shastraIds_val [i] ) ; 

} 

} 

void 

outputlds (f p, pSIds) 

FILE *fp; 
shastralds *pSIds; 

{ 

int i; 

f printf (fp, "%d\n", pSIds->shast ralds_len ) ; 
for (i = 0; i < pSIds->shast ralds_len; i++) { 
outputId(fp, pSIds->shast ralds_val [i] ) ; 

} 

} 



void 

f reeld(pSId) 

shastrald *pSId; 

{ 

int i; 

if (pSId == NULL) { 
return; 
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} 

f ree( pSId->nmHost ) ; 

f ree( pSId->nmDisplay) ; 

f ree( pSId->nmApplicn) ; 

f ree( pSId->nmUser) ; 

memset(pSId, 0, sizeof ( shast raid ) ) ; 

} 



void 

f reelds(pSIds) 

shastralds *pSIds; 

{ 

int i; 

if (pSIds == NULL) { 
return; 

} 

for (i = 0; i < pSIds->shast ralds_len; i++) { 
f reeld ( pSIds->shast ralds_val [i] ) ; 

} 

f ree( pSIds->shast ralds_val) ; 
memset(pSIds, 0, sizeof ( shast raids )) ; 

} 



shastrald * 
copyId(pSId, destpSId) 
shastrald *pSId; 
shastrald *destpSId; 



{ 



shastrald *newpSId; 
int i; 

if (pSId == NULL) { 
return NULL; 

} 

if (destpSId == NULL) { 

newpSId = (shastrald *) malloc ( sizeof ( shast raid )) ; 
} else { 

newpSId = destpSId; 

} 

memcpy( newpSId, pSId, sizeof ( shast raid )) ; 
if (pSId->nmHost){ 

newpSId->nmHost = strdup(pSId->nmHost) ; 

} 

if (pSId->nmDisplay){ 

newpSId->nmDisplay = strdup(pSId->nmDisplay) ; 

} 

if ( pSId->nmApplicn ) { 

newpSId->nmApplicn = strdup(pSId->nmApplicn) ; 

} 

if (pSId->nmUser){ 
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newpSId->nmUser = strdup(pSId->nmUser) ; 

} 

if ( pSId->nmPasswd ) { 

newpSId->nmPasswd = strdup(pSId->nmPasswd) ; 

} 

return newpSId; 

} 

shastralds * 
copyIds(pSIds, destpSIds) 
shastralds *pSIds; 
shastralds *destpSIds; 



{ 



int i; 
shastralds *newpSIds; 

if (pSIds == NULL) { 
return NULL; 

} 

if (destpSIds == NULL) { 

newpSIds = (shastralds *) malloc ( sizeof ( shast raids )) ; 
} else { 

newpSIds = destpSIds; 

} 

memcpy( newpSIds, pSIds, sizeof ( shast raids )) ; 
newpSIds->shastraIds_val = (shastraId_P *) 

malloc(newpSIds->shastraIds_len * sizeof ( shast raId_P) ) ; 
for (i = 0; i < newpSIds->shast ralds_len; i++) { 

newpSIds->shastraIds_val [i] = copyld ( pSIds->shast ralds_val [i] , NULL 
); 

} 

return newpSIds; 



#ifdef STANDALONE 
main(argc, argv) 

#else /* STANDALONE */ 

shastraIdMain(argc, argv) 

#endif /* STANDALONE */ 

int argc; 

char **argv; 

{ 

static shastrald sld; 
static shastralds slds; 
shastralds *cpSIds; 
shastrald *cpSId; 

switch (argc) { 

case 1: /* receive sld */ 

shastraldln(0 /* stdin */ , &sld); 

outputld ( stdout, &sld); 

cpSId = copyId(&sId, NULL); 
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outputld ( stdout, cpSId); 
f reeld(cpSId) ; 

break; 

case 2: /* receive sld */ 
inputld ( stdin, &sld); 
#ifdef DEBUG 

outputld ( stderr, &sld); 

#endif 

shastraldOutd /* stdout */ , &sld); 
break; 

case 3: /* receive slds */ 

shastraldsln(0 /* stdin */ , &slds); 
outputlds ( stdout, &slds); 
cpSIds = copyIds(&sIds, NULL); 
outputlds ( stdout, cpSIds); 
f reelds (cpSIds) ; 

break; 

case 4: /* receive slds */ 
inputlds ( stdin, &slds); 
#ifdef DEBUG 

outputlds ( stderr, &slds); 

#endif 

shastraldsOutd /* stdout */ , &slds); 
break; 

} 

} 

/* 

* Function — 

*/ 

cha r * 
ipaddr2str(addr) 

unsigned long addr; 

{ 

static char addrBuf[32]; 
unsigned int bl, b2, b3, b4; 

b4 = addr % 256; 
addr = addr / 256; 
b3 = addr % 256; 
addr = addr / 256; 
b2 = addr % 256; 
addr = addr / 256; 
bl = addr % 256; 

sprintf (addrBuf , "%d .%d .%d .%d" , bl, b2, b3, b4) ; 
return addrBuf; 

} 
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/* 

* Function — 

*/ 

char * 
pSId2Str(pSId, fMask) 

shastrald *pSId; 

int fMask; 

{ 

char *buf, *bufptr, tmpHost [256] , *tmp; 

int i; 
int StrMaxLen = 128; 

/* shastrald has 9 displayable fields 4+n names, rest num */ 
buf = malloc( (StrMaxLen +1) * 6); 
bufptr = buf; 

if ((fMask ==0) || (fMask == PSIDSHOWALL) ) { 
strcpy(tmpHost, pSId->nmHost ) ; 
tmp = strchr(tmpHost, '.'); 
if (tmp){ 

*tmp = 1 \0 1 ; 

} 

#ifndef VERBOSE 
if ( pSId->webname) 
{ 

sprintf(buf, "%s@%s's %s (Tag: %u)\n", 

pSId->webname, tmpHost, pSId->nmApplicn, pSId->lSIDTag ) ; 

} 

else 
{ 

sprintf(buf, "%s@%s's %s (Tag: %u)\n", 

pSId->nmUser, tmpHost, pSId->nmApplicn, pSId->lSIDTag ) ; 

} 

#else /* VERBOSE */ 

sprintf(buf, "%s@%s's %s (pid %d, ip %s, port %d) on display %s\n" 
pSId->nmUser, tmpHost, pSId->nmApplicn, pSId->iProcId, 
ipaddr2str(pSId->HPAddr) , pSId->iPort, pSId->nmDisplay) ; 
#endif /* VERBOSE */ 

} else { 

if (fMask & PSIDNMUSER) { 

sprintf (buf ptr, "%s ", pSId->nmUser) ; 
bufptr += strlen(bufptr) ; 

} 

if (fMask & PSIDNMHOST) { 

if(fMask == PSIDNMHOSTK 

sprintf (buf ptr, "%s ", pSId->nmHost ) ; 

} 

else{ 

strcpy(tmpHost, pSId->nmHost ) ; 
tmp = strchr(tmpHost, '.'); 
if (tmp){ 
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*tmp = '\0' ; 

} 

sprintf (buf ptr, "%s ", tmpHost); 

} 

bufptr += strlen(buf ptr) ; 

} 

if (fMask & PSIDNMAPPL) { 

sprintf (buf ptr, "%s ", pSId->nmApplicn) ; 
bufptr += strlen(buf ptr) ; 

} 

if (fMask & PSIDNMDISP) { 

sprintf (buf ptr, "%s ", pSId->nmDisplay) ; 
bufptr += strlen(buf ptr) ; 

} 

if (fMask & PSIDIPADDR) { 

sprintf (bufptr, "%s ", ipaddr2str(pSId->lIPAddr) ) ; 
bufptr += strlen(buf ptr) ; 

} 

if (fMask & PSIDPORT) { 

sprintf (buf ptr, "%d ", pSId->iPort ) ; 
bufptr += strlen(buf ptr) ; 

} 

if (fMask & PSIDPROCID) { 

sprintf (bufptr, "%d ", pSId->iProcId ) ; 
bufptr += strlen(buf ptr) ; 

} 

if (pSId->lPerms && (fMask & PSIDPERMS)) { 
char *tmp; 
tmp = perms2Str(pSId->lPerms) ; 
sprintf (buf ptr, "%s ", tmp); 
f ree(tmp) ; 

bufptr += strlen(buf ptr) ; 

} 

} 

buf = realloc(buf, strlen(buf) + 1); 
return buf; 

} 

/* 

* Function — 

*/ 

char * 
perms2Str( perms) 

unsigned long perms; 

{ 

char *buf; 

buf = malloc(16) ; 

sprintf(buf, " (%c%c%c%c%c) ", 

(perms & SHASTRA_PERM_ACCESS) ? 'A' : 1 ', 
(perms & SHASTRA_PERM_BROWSE) ? 'B' : 1 ', 
(perms & SHASTRA_PERM_MODI FY ) ? 'M' : 1 ', 
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(perms & SHASTRA_PERM_COPY) ? 'C : 1 
(perms & SHASTRA_PERM_GRANT) ? 'G' : 1 '); 
return buf; 

} 

/* 

* Function — 

*/ 

char ** 
pSIds2StrTab(pSIds, fMask) 

shastralds *pSIds; 

int fMask; 

{ 

int i; 
char **buf; 



buf = (char **) malloc ( sizeof (char *) * ( pSIds->shast ralds_len + 1)); 
for (i = 0; i < pSIds->shast ralds_len; i++) { 

buffi] = pSId2Str(pSIds->shastraIds_val[i] , fMask); 

} 

buf [pSIds->shastraIds_len] = NULL; 
return buf; 



/* 

* Function 
*/ 
char * 

pSId2StrDetail(pSId, IPerms) 
shastrald *pSId; 
unsigned long IPerms; 

{ 

char *sb, *sbBuf; 

sbBuf = malloc(1024) ; 
sb = sbBuf; 

sprintf(sb, "Application 
sb += strlen(sb) ; 
sprintf(sb, "User Name 
sb += strlen(sb) ; 
sprintf(sb, "X Display 
sb += strlen(sb) ; 
sprintf(sb, "Host Name 
sb += strlen(sb) ; 
sprintf(sb, "IP Address 
sb += strlen(sb) ; 
sprintf(sb, "Load Average 
sb += strlen(sb) ; 
sprintf(sb, "Host ID Tag 
sb += strlen(sb) ; 
sprintf(sb, "TCP Port 
sb += strlen(sb) ; 
sprintf(sb, "Process ID 



%s\n", pSId->nmApplicn) ; 

%s\n", pSId->nmUser) ; 

%s\n", pSId->nmDisplay) ; 

%s\n", pSId->nmHost) ; 

%s\n", ipaddr2str(pSId->HPAddr) ) ; 

%lf\n", pSId->dLoadAvg) ; 

%lu\n", pSId->lSIDTag) ; 

%d\n", pSId->iPort) ; 

%d\n", pSId->iProcId) ; 
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sb += strlen(sb) ; 
if (IPerms) { 

sprintf(sb, "Permissions : (%c%c%c%c%c)\n", 

(pSId->lPerms & SHASTRA_PERM_ACCESS) ? 'A' : 1 
(pSId->lPerms & SHASTRA_PERM_BROWSE) ? 'B' : 1 
(pSId->lPerms & SHASTRA_PERM_MODI FY ) ? 1 M 1 : 1 1 , 
(pSId->lPerms & SHASTRA_PERM_COPY) ? 'C : 1 
(pSId->lPerms & SHASTRA_PERM_GRANT) ? 'G' : 1 '); 
sb += strlen( sb) ; 

} 

sprintf (sb, "\n"); 
return sbBuf; 

} 

void 

shastraldXDRFree(pSId) 
shastrald *pSId; 

{ 

xdr_f ree(xdr_shastrald, (char *) pSId); 
memset(pSId, 0, sizeof ( shast raid ) ) ; 



void 

shast raid sXDRFree(pSIds) 
shastralds *pSIds; 

{ 

xdr_f ree(xdr_shastralds, (char*) pSIds); 
memset(pSIds, 0, sizeof ( shast raids )) ; 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* Please do not edit this file. 

* It was generated using rpcgen. 

*/ 

#include <rpc/rpc.h> 

#include <shast ra/datacomm/shast raldTag . h> 
#include <shast ra/datacomm/shast raid . h> 

bool_t 

xdr_shastrald(xdrs, objp) 
XDR *xdrs; 
shastrald *objp; 



{ 



if ( !xdr_string(xdrs, &obj p->nmHost , ~0)) { 
return (FALSE); 

} 

if ( !xdr_string(xdrs, &obj p->nmDisplay, ~0)) { 
return (FALSE); 

} 

if ( !xdr_string(xdrs, &obj p->nmApplicn, ~0)) { 
return (FALSE); 

} 

if ( !xdr_string(xdrs, &obj p->nmUser, ~0)) { 
return (FALSE); 

} 

if ( !xdr_string(xdrs, &obj p->nmPasswd, ~0)) { 
return (FALSE); 

} 
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!xdr_shastraIdTag(xdrs, &obj p->lSIDTag ) ) { 
return (FALSE); 

!xdr_u_long(xdrs, &obj p->UPAdd r) ) { 
return (FALSE); 

!xdr_u_long(xdrs, &obj p->lWindowId ) ) { 
return (FALSE); 

!xdr_u_long(xdrs, &obj p->lApplicn) ) { 
return (FALSE); 

!xdr_int(xdrs, &obj p->iPort) ) { 
return (FALSE); 

!xdr_int(xdrs, &obj p->iProdd ) ) { 
return (FALSE); 

!xdr_u_short(xdrs, &obj p->iXPort ) ) { 
return (FALSE); 

!xdr_u_short(xdrs, &obj p->iXScreen) ) { 
return (FALSE); 

!xdr_u_long(xdrs, &obj p->lPerms ) ) { 
return (FALSE); 

!xdr_u_long(xdrs, &obj p->lHWState) ) { 
return (FALSE); 

!xdr_u_long(xdrs, &obj p->lTimeStamp) ) { 
return (FALSE); 

!xdr_double(xdrs, &obj p->dLoadAvg ) ) { 
return (FALSE); 



! xd r_st ring (xd rs, &obj p->webname, 
return (FALSE); 



-0)) { 



} 



return (TRUE); 



bool_t 

xdr_shastraId_P(xdrs, objp) 
XDR *xdrs; 
shastraId_P *objp; 



{ 



if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shast raid ) , xd r_shast raid ) 
) { 

return (FALSE); 

} 

return (TRUE); 
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bool_t 

xdr_shast raids (xdrs, objp) 
XDR *xdrs; 
shastralds *objp; 

{ 

if ( !xdr_ar ray (xdrs, (char **)&obj p->shast ralds_val, (u_int *)&objp-> 
shastralds_len, ~0, sizeof ( shast raId_P) , xd r_shast raId_P) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shastraIdGrp(xdrs, objp) 
XDR *xdrs; 
shastraldGrp *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shast raIdGrp_val, (u_int *)&objp-> 
shastraIdGrp_len, ~0, sizeof ( shast raid ) , xd r_shast raid ) ) { 
return (FALSE); 

} 

return (TRUE); 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <malloc.h> 

#include <shast ra/datacomm/shast raldH. h> 
#include <shast ra/datacomm/shast raldTagH. h> 
#include <shast ra/network/mplex. h> 
#include <shastra/network/rpc.h> 

#define STANDALONEnn 

int 

shastraIdTagOut(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 

{ 

XDR xdrs; 

int retVal = 0; 

#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_shastraIdTag(&xdrs, pSIdTag)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 
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* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE) 

*/ 

if ( !xdr_shastraIdTag(mplexXDRSEnc(fd) , pSIdTag)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 

} 

int 

shastraIdTagIn(fd, pSIdTag) 
int fd; 
shast raldTag *pSIdTag; 

{ 

XDR xdrs; 

int retVal = 0; 

#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_shastraIdTag(&xdrs, pSIdTag)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 

*/ 

if ( !xdr_shast raldTag (mplexXDRSDec ( f d ) , pSIdTag)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 

} 

int 

shastraIdTagsOut(fd, pSIdTags) 
int fd; 
shast raldTags *pSIdTags; 

{ 

XDR xdrs; 

int retVal = 0; 

#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_shastraIdTags(&xdrs, pSIdTags)) { 
retVal = -1; 

} 
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} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE); 

*/ 

if ( !xdr_shastraIdTags(mplexXDRSEnc(fd) , pSIdTags)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 

} 

int 

shastraIdTagsIn(fd, pSIdTags) 
int fd; 
shastraldTags *pSIdTags; 

{ 

XDR xdrs; 

int retVal = 0; 

shastraldTagsXDRFree(pSIdTags) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd,"r") */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_shastraIdTags(&xdrs, pSIdTags)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 

*/ 

if ( !xdr_shastraIdTags(mplexXDRSDec(fd) , pSIdTags)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 

} 



void 

inputldTag (f p, pSIdTag) 
FILE *fp; 
shastraldTag *pSIdTag; 

{ 

int i; 



fscanf(fp, "%lu", pSIdTag); 

} 
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outputIdTag(fp, pSIdTag) 
FILE *fp; 
shast raldTag *pSIdTag; 

{ 

int i; 

fprintf(fp, "%lu\n", *pSIdTag); 

} 



void 

inputIdTags(fp, pSIdTags) 
FILE *fp; 
shast raldTags *pSIdTags; 

{ 

int i; 

fscanf(fp, "%u", &pSIdTags->shastraIdTags_len) ; 
pSIdTags->shastraIdTags_val = ( shast raldTag *) 

malloc(pSIdTags->shastraIdTags_len * sizeof ( shast raldTag )) ; 
for (i = 0; i < pSIdTags->shast raIdTags_len; i++) { 

inputIdTag(fp, &pSIdTags->shast raIdTags_val [i] ) ; 

} 

} 

void 

outputIdTags(fp, pSIdTags) 
FILE *fp; 
shast raldTags *pSIdTags; 

{ 

int i; 

fprintf(fp, "%u\n", pSIdTags->shast raIdTags_len ) ; 
for (i = 0; i < pSIdTags->shast raIdTags_len; i++) { 
outputIdTag(f p, &pSIdTag s->s hast raldTag s_va I [i] ) ; 

} 

} 



void 

freeIdTags( pSIdTags) 

shast raldTags *pSIdTags; 

{ 

int i; 

if (pSIdTags == NULL) { 
return; 

} 

f ree( pSIdTags->shast raIdTags_val) ; 

memset( pSIdTags, 0, sizeof ( shast raldTags )) ; 

} 
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shastraldTags * 

copyldTags (pSIdTags, destpSIdTags ) 

shastraldTags *pSIdTags; 

shastraldTags *destpSIdTags ; 

{ 

int i; 

shastraldTags *newpSIdTags ; 

if (pSIdTags == NULL) { 
return NULL; 

} 

if (destpSIdTags == NULL) { 

newpSIdTags = (shastraldTags *) malloc ( sizeof ( shast raldTags ) ) ; 
} else { 

newpSIdTags = destpSIdTags; 

} 

memcpy( newpSIdTags, pSIdTags, sizeof ( shast raldTags )) ; 
newpSIdTags->shastraIdTags_val = ( shast raldTag *) 

malloc(newpSIdTags->shastraIdTags_len * sizeof ( shast raldTag )) ; 
for (i = 0; i < newpSIdTags->shast raIdTags_len; i++) { 

newpSIdTags->shastraIdTags_val [i] = 
pSIdTags->shastraIdTags_val [i] ; 

} 

return newpSIdTags; 



#ifdef STANDALONE 
main(argc, argv) 

#else /* STANDALONE */ 

shastraIdTagMain(argc, argv) 

#endif /* STANDALONE */ 

int argc; 

char **argv; 

{ 

static shastraldTag sldTag; 
static shastraldTags sldTags; 
shastraldTags *cpSIdTags; 
shastraldTag cpSIdTag; 

switch (argc) { 

case 1: /* receive sld */ 

shastraIdTagIn(0 /* stdin */ , &sIdTag); 

outputldTag ( stdout, &sIdTag); 

cpSIdTag = sldTag; 

outputldTag ( stdout, &cpSIdTag); 

break; 

case 2: /* receive sld */ 
inputldTag ( stdin, &sIdTag); 
#ifdef DEBUG 

outputldTag ( stderr, &sIdTag); 
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#endif 

shastraldTagOutd /* stdout */ , &sIdTag); 
break; 

case 3: /* receive slds */ 

shastraIdTagsIn(0 /* stdin */ , &sIdTags); 
outputIdTags(stdout, &sIdTags); 
cpSIdTags = copyldTags (&sIdTags , NULL); 
outputIdTags(stdout, cpSIdTags); 
f reeldTags(cpSIdTags) ; 

break; 

case 4: /* receive slds */ 
inputldTags ( stdin, &sIdTags); 
#ifdef DEBUG 

outputldTags ( stderr, &sIdTags); 

#endif 

shastraldTagsOutd /* stdout */ , &sIdTags); 
break; 

} 

} 



void 

shastraldTagsXDRFree(pSIdTags) 
shast raldTags *pSIdTags; 

{ 

xdr_f ree(xdr_shastraIdTags, (char*) pSIdTags); 
memset(pSIdTags, 0, sizeof ( shast raldTags )) ; 

} 

/* 

* Function — 

*/ 

char * 
pSIdTag2Str(pSIdTag, fMask) 

shastraldTag *pSIdTag; 

int fMask; 

{ 

/* if fMask, then convert Tag to Id and show that */ 
char *buf; 
int StrMaxLen = 16; 

buf = malloc( StrMaxLen) ; 
sprintf(buf, "%lu", *pSIdTag); 
return buf; 

} 



/* 

* Function — 
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char ** 
pSIdTags2StrTab(pSIdTags, fMask) 

shast raldTags *pSIdTags; 

int fMask; 

{ 

int i; 
char **buf; 

buf = (char **) malloc ( sizeof (char *) * ( pSIdTags->shast raIdTags_len + 
1) ) ; 

for (i = 0; i < pSIdTags->shast raIdTags_len; i++) { 

buffi] = pSIdTag2Str(&pSIdTags->shastraIdTags_val [i] , fMask); 

} 

buf [pSIdTags->shastraIdTags_len] = NULL; 
return buf; 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* Please do not edit this file. 

* It was generated using rpcgen. 

*/ 

#include <rpc/rpc.h> 

#include <shast ra/datacomm/shast raldTag . h> 
bool_t 

xdr_shastraIdTag(xdrs, objp) 
XDR *xdrs; 
shastraldTag *objp; 



{ 



} 



if ( !xdr_u_long(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_shastraIdTags(xdrs, objp) 
XDR *xdrs; 

shast raldTags *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->shast raIdTags_val, (u_int *)&objp- 
>shastraIdTags_len, ~0, sizeof ( shast raldTag ) , xd r_shast raldTag ) ) { 
return (FALSE); 

} 

return (TRUE); 
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bool_t 

xdr_shastraIdTags_P(xdrs, objp) 
XDR *xdrs; 

shast raIdTags_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( shast raldTags ) , 
xdr_shastraIdTags) ) { 
return (FALSE); 

} 

return (TRUE); 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 

#in elude <shast ra/datacomm/videoImgH. h> 
#include <shast ra/network/mplex. h> 
#include <shastra/network/rpc.h> 

#define STANDALONEnn 

int 

videolmg0ut(fd, pVImg) 
int fd; 
videolmg *pVImg; 

{ 

XDR xdrs; 

int retVal = 0; 

#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_videoImg(&xdrs, pVImg)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE); 

*/ 
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if ( !xdr_videoImg(mplexXDRSEnc(fd) , pVImg)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



int 

videoImgIn(fd, 
int 

videolmg 

{ 

XDR 
int 



pVImg) 
fd; 
*pVImg ; 

xdrs; 

retVal = 0; 



videoImgXDRFree(pVImg) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_videoImg(&xdrs, pVImg)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 

*/ 

if ( !xdr_videoImg(mplexXDRSDec(fd) , pVImg)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



videoImgMemOut ( buf , size, pVImg) 

char *buf; 
int size; 

videolmg *pVImg; 

{ 

XDR xdrs; 

int retVal = 0; 



xdrmem_create(&xdrs, buf, size, XDR_ENCODE); 
if ( ! xd r_videoImg (&xd rs , pVImg)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 
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int 

videoImgMemln ( buf , size, pVImg) 

char *buf; 
int size; 

videolmg *pVImg; 



{ 



XDR xdrs; 
int retVal 



videoImgXDRFree(pVImg) ; 

xdrmem_create(&xdrs, buf, size, XDR_DECODE); 
if ( ! xd r_videoImg (&xd rs , pVImg)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 

} 

int 

videolmgs0ut(fd, pVImgs) 
int fd; 
videolmgs *pVImgs; 

{ 

XDR xdrs; 

int retVal = 0; 



#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_videoImgs(&xdrs, pVImgs)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE); 

*/ 

if ( ! xd r_videoImgs (mplexXDRSEnc ( f d ) , pVImgs)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



int 

videoImgsIn(fd, 
int 

videolmgs 

{ 

XDR 
int 



pVImgs) 
fd; 
*pVImgs ; 

xdrs; 

retVal = 0; 



Page 3 of 1 1 



videolmg.c 



7/5/11 12:39 PM 



videoImgsXDRFree( pVImgs ) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_videoImgs(&xdrs, pVImgs)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 

*/ 

if ( ! xd r_videoImgs (mplexXDRSDec ( f d ) , pVImgs)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



videoImgsMemOut ( buf , size, pVImgs) 

char *buf; 

int size; 

videolmgs *pVImgs; 

{ 

XDR xdrs; 

int retVal = 0; 



xdrmem_create(&xdrs, buf, size, XDR_ENCODE); 
if ( !xdr_videoImgs(&xdrs, pVImgs)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 



videoImgsMemIn(buf , size, pVImgs) 

char *buf; 

int size; 

videolmgs *pVImgs; 

{ 

XDR xdrs; 

int retVal = 0; 



videoImgsXDRFree( pVImgs ) ; 

xdrmem_create(&xdrs, buf, size, XDR_DECODE); 
if ( ! xd r_videoImg (&xd rs , pVImgs)) { 
retVal = -1; 

} 
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xdr_destroy(&xdrs) ; 
return retVal; 

} 



int 

videoClipOut(fd, 
int 

videoClip 

{ 

XDR 
int 



pVClip) 
fd; 
*pVClip; 

xdrs; 

retVal = 0; 



#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_videoClip(&xdrs, pVClip)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE); 

*/ 

if ( !xdr_videoClip(mplexXDRSEnc(fd) , pVClip)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



int 

videoClipIn(fd, 
int 

videoClip 

{ 

XDR 
int 



pVClip) 
fd; 
*pVClip; 

xdrs; 

retVal = 0; 



videoClipXDRFree(pVClip) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_videoClip(&xdrs, pVClip)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 



Page 5 of 1 1 



videolmg.c 



7/5/11 12:39 PM 



*/ 

if ( !xdr_videoClip(mplexXDRSDec(fd) , pVClip)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



videoClipMemOut (buf , size, pVClip) 

char *buf; 

int size; 

videoClip *pVClip; 

{ 

XDR xdrs; 

int retVal = 0; 



xdrmem_create(&xdrs, buf, size, XDR_ENCODE); 
if ( !xdr_videoClip(&xdrs, pVClip)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 



videoClipMemIn(buf , size, pVClip) 

char *buf; 

int size; 

videoClip *pVClip; 

{ 

XDR xdrs; 

int retVal = 0; 



videoClipXDRFree(pVClip) ; 

xdrmem_create(&xdrs, buf, size, XDR_DECODE); 
if ( !xdr_videoImg(&xdrs, pVClip)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 



void 

f reeVideoImg ( pVImg ) 

videolmg *pVImg; 

{ 

if (pVImg == NULL) { 
return; 

} 

if (pVImg->data.data_val != NULL) { 
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f ree(pVImg->data.data_val) ; 

} 

memset(pVImg, 0, sizeof ( videolmg ) ) ; 

} 



void 

f reeVideoImgs (pVImgs) 

videolmgs *pVImgs; 

{ 

videoImgsXDRFree( pVImgs ) ; 

} 

videolmg * 
copyVideoImg(pVImg, destpVImg ) 

videolmg *pVImg; 

videolmg *destpVImg; 

{ 

videolmg *newpVImg; 
int i; 

if (pVImg == NULL) { 
return NULL; 

} 

if (destpVImg == NULL) { 

newpVImg = (videolmg *) malloc ( sizeof (videolmg )) ; 
} else { 

newpVImg = destpVImg; 

} 

memcpy(newpVImg, pVImg, sizeof (videolmg )) ; 

newpVImg->data.data_val = (char *) malloc ( newpVImg->data . data_len * 

sizeof (newpVImg->data.data_val [0] ) ) ; 
memcpy ( newpVImg->data . data_val, pVImg->data . data_val, 

newpVImg->data . data_len * sizeof ( newpVImg->data . data_val [0] )) ; 
return newpVImg; 

} 

videolmgs * 

copy Videolmgs (pVImgs, dest pVImgs) 
videolmgs *pVImgs; 
videolmgs *destpVImgs; 

{ 

int i; 
videolmgs *newpVImgs; 

if (pVImgs == NULL) { 
return NULL; 

} 

if (destpVImgs == NULL) { 

newpVImgs = (videolmgs *) malloc ( sizeof (videolmgs )) ; 
} else { 

newpVImgs = destpVImgs; 
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} 

memcpy(newpVImgs, pVImgs, sizeof ( videolmgs ) ) ; 
newpVImgs->videoImgs_val = (videolmg *) 

malloc(newpVImgs->videoImgs_len * sizeof (videolmg )) ; 
for (i = 0; i < newpVImgs->videoImgs_len; i++) { 

copy Videolmg (&pVImgs->videoImgs_val [i] , &newpVImgs->videoImgs_val [i 
]); 

} 

return newpVImgs; 



void 

inputVideoImg ( f p, pVImg) 

FILE *fp; 

videolmg *pVImg; 



{ 



int i, n; 

videoImgXDRFree(pVImg) ; 
fscanf(fp, "%ld", &pVImg->UdTag ) ; 
fscanf(fp, "%ld", &pVImg->lSIdTag ) ; 
fscanf(fp, "%ld", &pVImg->lPerms ) ; 
fscanf(fp, "%hd", &pVImg->imgFormat ) ; 
fscanf(fp, "%hd", &pVImg->imgComp) ; 
fscanf(fp, "%hd", &pVImg->imgMode) ; 
fscanf(fp, "%hd", &pVImg->imgXSize) ; 
fscanf(fp, "%hd", &pVImg->imgYSize) ; 
fscanf(fp, "%hd", &pVImg->imgDepth) ; 
/*read colors*/ 
fscanf(fp, "%d", &n); 
if(n > 0){ 

pVImg->pColorMap = (viColorMap*)malloc(sizeof (viColorMap) ) ; 
pVImg->pColorMap->viColorMap_len = n; 
pVImg->pColorMap->viColorMap_val = (viColor*)malloc( 

n * sizeof (viColor) ) ; 
for (i = 0; i < n; i++) { 
fscanf(fp, "%hd%hd%hd", 

&pVImg->pColorMap->viColorMap_val [i] [0] , 
&pVImg->pColorMap->viColorMap_val [i] [1] , 
&pVImg->pColorMap->viColorMap_val [i] [2] ) ; 

} 

} 

fscanf(fp, "%d", &pVImg->data . data_len) ; 

pVImg->data. data_val = (char *) malloc ( pVImg->data . data_len * 

sizeof (pVImg->data.data_val [0] ) ) ; 
for (i = 0; i < pVImg->data . data_len ; i++) { 

fscanf(fp, "%d", &n); 

pVImg->data . data_val [i] = n; 

} 
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outputVideoImg ( f p, pVImg) 
FILE *fp; 
videolmg *pVImg; 



{ 



int i; 

fprintf (fp, "%ld\n", pVImg->lIdTag ) ; 

fprintf(fp, "%ld\n", pVImg->lSIdTag ) ; 

fprintf (fp, "%ld\n", pVImg->lPerms ) ; 

fprintf(fp, "%hd\n", pVImg->img Format ) ; 

fprintf(fp, "%hd\n", pVImg->imgComp) ; 

fprintf(fp, "%hd\n", pVImg->imgMode) ; 

fprintf(fp, "%hd\n", pVImg->imgXSize) ; 

fprintf(fp, "%hd\n", pVImg->imgYSize) ; 

fprintf(fp, "%hd\n", pVImg->imgDepth) ; 

if (pVImg->pColorMap != NULL){ 

fprintf (fp, "%ld\n", pVImg->pColorMap->viColorMap_len) ; 
for (i = 0; i < pVImg->pColorMap->viColorMap_len; i++) { 
fprintf(fp, "%hd %hd %hd\n", 

pVImg->pColorMap->viColorMap_val [i] [0] , 
pVImg->pColorMap->viColorMap_val [i] [1] , 
pVImg->pColorMap->viColorMap_val [i] [2] ) ; 

} 

} 

fprintf (fp, "%ld\n", pVImg->data.data_len) ; 
for (i = 0; i < pVImg->data . data_len ; i++) { 
if (!(i % 8)) { 

fprintf(fp, "\n"); 

} 

fprintf (fp, "%d ", pVImg->data . data_val [i] ) ; 

} 

fprintf(fp, "\n"); 



void 

inputVideoImgs(f p, pVImgs) 

FILE *fp; 

videolmgs *pVImgs; 



{ 



int i; 

videoImgsXDRFree(pVImgs) ; 

fscanf(fp, "%d", &pVImgs->videoImgs_len) ; 

pVImgs->videoImgs_val = (videolmg *) 

malloc ( pVImgs->videoImgs_len * sizeof (videolmg) ) ; 
for (i = 0; i < pVImgs->videoImgs_len; i++) { 

inputVideoImg ( f p, &pVImgs->videoImgs_val [i] ) ; 

} 



void 

outputVideoImgs ( f p, pVImgs) 
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FILE *fp; 
videolmgs *pVImgs; 

{ 

int i; 

f printf (f p, "%d\n", pVImgs->videoImgs_len ) ; 
for (i = 0; i < pVImgs->videoImgs_len; i++) { 

outputVideoImg(fp, &pVImgs->videoImgs_val [i] ) ; 

} 

} 

void 

videoImgXDRFree ( pVImg ) 

videolmg *pVImg; 

{ 

xdr_f ree(xd r_videoImg, (char *) pVImg); 
memset(pVImg, 0, sizeof (videolmg )) ; 

} 

void 

videoImgsXDRFree( pVImgs ) 
videolmgs *pVImgs; 

{ 

xdr_f ree(xd r_videoImgs, (char *) pVImgs); 
memset(pVImgs, 0, sizeof (videolmgs )) ; 

} 

void 

videoClipXDRFree(pVClip) 
videoClip *pVClip; 

{ 

xdr_f ree(xdr_videoClip, (char *) pVClip); 
memset(pVClip, 0, sizeof (videoClip) ) ; 

} 

#ifdef STANDALONE 
main(argc, argv) 

#else /* STANDALONE */ 

videoImgMain(argc, argv) 

#endif /* STANDALONE */ 

int argc; 

char **argv; 

{ 

static videolmg vlmg; 
static videolmgs vlmgs; 
videolmgs *cpVImgs; 
videolmg *cpVImg; 

switch (argc) { 

case 1: /* receive vlmg */ 

videolmgln(0 /* stdin */ , &vlmg); 
outputVideoImg ( stdout, &vlmg); 
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cpVImg = copyVideoImg (&vlmg, NULL); 
outputVideoImg ( stdout, cpVImg); 
f reeVideoImg ( cpVImg ) ; 

break; 

case 2: /* receive vlmg */ 
inputVideoImg ( stdin, &vlmg); 
#ifdef DEBUG 

outputVideoImg ( stderr, &vlmg); 

#endif 

videoImgOut ( 1 /* stdout */ , &vlmg); 
break; 

case 3: /* receive vlmgs */ 

videolmgsln(0 /* stdin */ , &vlmgs); 
outputVideoImgs ( stdout, &vlmgs); 
cpVImgs = copyVideoImgs (&vlmgs, NULL); 
outputVideoImgs ( stdout, cpVImgs) ; 
freeVideoImgs (cpVImg s) ; 

break; 

case 4: /* receive vlmgs */ 
inputVideoImgs ( stdin, &vlmgs); 
#ifdef DEBUG 

outputVideoImgs ( stderr, &vlmgs); 

#endif 

videoImgsOut ( 1 /* stdout */ , &vlmgs); 
break; 

} 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* Please do not edit this file. 

* It was generated using rpcgen. 

*/ 

#include <rpc/rpc.h> 

#include <shast ra/datacomm/videolmg . h> 
bool_t 

xdr_viColor(xdrs, objp) 
XDR *xdrs; 
viColor objp; 



{ 



} 



if ( !xdr_vector(xdrs, (char*)objp, 3, sizeof ( u_short ) , xdr_u_short) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_viColorMap(xdrs, objp) 
XDR *xdrs; 
viColorMap *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->viColorMap_val, (u_int *)&objp-> 
viColorMap_len, ~0, sizeof (viColor) , xd r_viColor) ) { 
return (FALSE); 

} 

return (TRUE); 
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} 



bool_t 

xdr_videoImg(xdrs, objp) 
XDR *xdrs; 
videolmg *objp; 



{ 



} 



!xdr_u_long(xdrs, &obj p->lIdTag ) ) { 
return (FALSE); 

!xdr_u_long(xdrs, &obj p->lSIdTag ) ) { 
return (FALSE); 

!xdr_u_long(xdrs, &obj p->lPerms ) ) { 
return (FALSE); 

!xdr_u_short(xdrs, &objp->img Format) ) { 
return (FALSE); 

!xdr_u_short(xdrs, &obj p->imgComp) ) { 
return (FALSE); 

!xdr_u_short(xdrs, &obj p->imgMode) ) { 
return (FALSE); 

!xdr_u_short(xdrs, &obj p->imgXSize) ) { 
return (FALSE); 

!xdr_u_short(xdrs, &obj p->imgYSize) ) { 
return (FALSE); 

!xdr_u_short(xdrs, &obj p->imgDepth) ) { 
return (FALSE); 

!xdr_pointer(xdrs, (char **)&obj p->pColorMap, sizeof ( viColorMap) , 
xd r_viColorMap) ) { 
return (FALSE); 

!xdr_bytes(xdrs, (char **)&objp->data.data_val, (u_int *)&objp-> 
data.data_len, ~0)) { 
return (FALSE); 



} 



return (TRUE); 



bool_t 

xdr_videoImg_P(xdrs, objp) 
XDR *xdrs; 
videoImg_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof (videolmg ) , xd r_videoImg ) ) 
{ 

return (FALSE); 
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} 

return (TRUE); 

} 

bool_t 

xdr_videoImgs(xdrs, objp) 
XDR *xdrs; 
videolmgs *objp; 



{ 



} 



if ( !xdr_array(xdrs, (char **)&obj p->videoImgs_val, (u_int *)&objp- 
videoImgs_len, ~0, sizeof (videolmg) , xd r_videoImg ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_videoImgs_P(xdrs, objp) 
XDR *xdrs; 
videoImgs_P *objp; 



{ 



} 



if ( !xdr_pointer(xdrs, (char **)objp, sizeof (videolmgs ) , xd r_videoImgs ) 
) { 

return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_videoClip(xdrs, objp) 
XDR *xdrs; 
videoClip *objp; 



{ 



if ( !xdr_vector(xdrs, (char *) obj p->sbName, 32, sizeof (char) , xdr_char) 
) { 

return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->UdTag ) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lSIdTag ) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lPerms ) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lType) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lMode) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lPointer) ) { 
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return (FALSE); 

} 

if ( !xdr_pointer(xdrs, (char **)&obj p->pVImgs, sizeof ( videolmgs ) , 
xdr_videoImgs) ) { 
return (FALSE); 

} 

return (TRUE); 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 

#in elude <shast ra/datacomm/xsCntlDataH. h> 
#include <shast ra/network/mplex. h> 
#include <shastra/network/rpc.h> 

#define STANDALONEnn 

int 

xsCntlDataOut(fd, pXSData) 
int fd; 
xsCntlData *pXSData; 

{ 

XDR xdrs; 

int retVal = 0; 

#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_xsCntlData(&xdrs, pXSData)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE); 

*/ 
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if ( !xdr_xsCntlData(mplexXDRSEnc(fd) , pXSData)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



int 

xsCntlDataIn(fd, 
int 

xsCntlData 

{ 

XDR 
int 



pXSData) 
fd; 
*pXSData; 

xdrs; 

retVal = 0; 



xsCntlDataXDRFree(pXSData) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_xsCntlData(&xdrs, pXSData)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 

*/ 

if ( !xdr_xsCntlData(mplexXDRSDec(fd) , pXSData)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



xsCntlDataMemOut(buf , size, pXSData) 

char *buf; 

int size; 

xsCntlData *pXSData; 

{ 

XDR xdrs; 

int retVal = 0; 



xdrmem_create(&xdrs, buf, size, XDR_ENCODE); 
if ( !xdr_xsCntlData(&xdrs, pXSData)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 
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xsCntlDataMemIn(buf , size, pXSData) 

char *buf; 

int size; 

xsCntlData *pXSData; 

{ 

XDR xdrs; 

int retVal = 0; 



} 



xsCntlDataXDRFree(pXSData) ; 
xdrmem_create(&xdrs, buf, size, XDR_DECODE); 
if ( !xdr_xsCntlData(&xdrs, pXSData)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 



int 

xsCntlDatasOut(fd, pXSDatas) 

int fd; 

xsCntlDatas *pXSDatas; 

{ 

XDR xdrs; 

int retVal = 0 



#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_xsCntlDatas(&xdrs, pXSDatas)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE); 

*/ 

if ( !xdr_xsCntlDatas(mplexXDRSEnc(fd) , pXSDatas)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



xsCntlDatasIn(fd, pXSDatas) 

int fd; 

xsCntlDatas *pXSDatas; 

{ 

XDR xdrs; 

int retVal = 0; 
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xsCntlDatasXDRFree(pXSDatas) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_xsCntlDatas(&xdrs, pXSDatas)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 

*/ 

if ( !xdr_xsCntlDatas(mplexXDRSDec(fd) , pXSDatas)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 



xsCntlDatasMemOut(buf , size, pXSDatas) 

char *buf; 

int size; 

xsCntlDatas *pXSDatas; 

{ 

XDR xdrs; 

int retVal = 0; 



xdrmem_create(&xdrs, buf, size, XDR_ENCODE); 
if ( !xdr_xsCntlDatas(&xdrs, pXSDatas)) { 
retVal = -1; 

} 

xdr_destroy(&xdrs) ; 
return retVal; 



xsCntlDatasMemIn(buf , size, pXSDatas) 

char *buf; 

int size; 

xsCntlDatas *pXSDatas; 

{ 

XDR xdrs; 

int retVal = 0; 



xsCntlDatasXDRFree(pXSDatas) ; 
xdrmem_create(&xdrs, buf, size, XDR_DECODE); 
if ( !xdr_xsCntlDatas(&xdrs, pXSDatas)) { 
retVal = -1; 

} 
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xdr_destroy(&xdrs) ; 
return retVal; 

} 

void 

f reeXSCntlData(pXSData) 

xsCntlData *pXSData; 

{ 

if (pXSData == NULL) { 
return; 

} 

memset(pXSData, 0, sizeof (xsCntlData) ) ; 

} 



void 

f reeXSCntlDatas(pXSDatas) 

xsCntlDatas *pXSDatas; 



{ 



} 



int i; 

if (pXSDatas == NULL) { 
return; 

} 

for (i = 0; i < pXSDatas->xsCntlDatas_len ; i++) { 
f reeXSCntlData(&pXSDatas->xsCntlDatas_val [i] ) ; 

} 

f ree( pXSDatas->xsCntlDatas_val) ; 

memset( pXSDatas, 0, sizeof (xsCntlDatas )) ; 



xsCntlData * 

copyXSCntlData(pXSData, destpXSData) 

xsCntlData *pXSData; 

xsCntlData *destpXSData; 

{ 

xsCntlData *newpXSData; 

int i; 

if (pXSData == NULL) { 
return NULL; 

} 

if (destpXSData == NULL) { 

newpXSData = (xsCntlData *) malloc ( sizeof (xsCntlData) ) ; 
} else { 

newpXSData = destpXSData; 

} 

memcpy( newpXSData, pXSData, sizeof (xsCntlData) ) ; 
return newpXSData; 

} 

xsCntlDatas * 
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copyXSCntlDatas(pXSDatas, destpXSDatas ) 
xsCntlDatas *pXSDatas; 
xsCntlDatas *destpXSDatas ; 



{ 



int i; 
xsCntlDatas *newpXSDatas ; 
char buf [65536]; 

if (pXSDatas == NULL) { 
return NULL; 

} 

if (destpXSDatas == NULL) { 

newpXSDatas = (xsCntlDatas *) malloc ( sizeof (xsCntlDatas )) ; 

memset ( newpXSDatas, 0, sizeof (xsCntlDatas )) ; 
} else { 

newpXSDatas = destpXSDatas; 

} 

xsCntlDatasMemOut(buf , 65536, pXSDatas); 
xsCntlDatasMemIn(buf , 65536, newpXSDatas); 
return newpXSDatas; 



void 

inputXSCntlData(fp, pXSData) 
FILE *fp; 
xsCntlData *pXSData; 

{ 

memset (pXSData, 0, sizeof (xsCntlData) ) ; 

} 

void 

outputXSCntlData(fp, pXSData) 
FILE *fp; 
xsCntlData *pXSData; 

{ 

fprintf (stderr, "outputXSCntlData ( ) not complete\n" ) ; 

} 



void 

inputXSCntlDatas(fp, pXSDatas) 
FILE *fp; 
xsCntlDatas *pXSDatas; 

{ 



int 



i; 



fscanf(fp, "%d", &pXSDatas->xsCntlDatas_len) ; 
pXSDatas->xsCntlDatas_val = (xsCntlData *) 

malloc ( pXSDatas->xsCntlDatas_len * sizeof (xsCntlData) ) ; 
for (i = 0; i < pXSDatas->xsCntlDatas_len; i++) { 

inputXSCntlData(f p, &pXSDatas->xsCntlDatas_val [i] ) ; 

} 
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} 



void 

outputXSCntlDatas(fp, pXSDatas) 
FILE *fp; 



{ 



xsCntlDatas *pXSDatas; 
int i; 

fprintf(fp, "%d\n", pXSDatas->xsCntlDatas_len) ; 
for (i = 0; i < pXSDatas->xsCntlDatas_len ; i++) { 

outputXSCntlData(fp, &pXSDatas->xsCntlDatas_val [i] ) ; 

} 

} 

void 

xsCntlDataXDRFree(pXSData) 
xsCntlData *pXSData; 

{ 

xdr_f ree(xd r_xsCntlData, (char*) pXSData); 
memset(pXSData, 0, sizeof (xsCntlData) ) ; 

} 

void 

xsCntlDatasXDRFree( pXSDatas) 
xsCntlDatas *pXSDatas; 

{ 

xdr_f ree(xdr_xsCntlDatas, (char*) pXSDatas); 
memset( pXSDatas, 0, sizeof (xsCntlDatas )) ; 

} 

#ifdef STANDALONE 
main(argc, argv) 

#else /* STANDALONE */ 

xsCntlDataMain(argc, argv) 
#endif /* STANDALONE */ 

int argc; 
char **argv; 



{ 



static xsCntlData xsCData; 
static xsCntlDatas xsCDatas; 
xsCntlDatas *cpXSDatas; 
xsCntlData *cpXSData; 

switch (argc) { 

case 1: /* receive xsCntlData */ 

xsCntlDataIn(0 /* stdin */ , &xsCData); 
outputXSCntlData(stdout, &xsCData) ; 
cpXSData = copyXSCntlData (&xsCData, NULL); 
outputXSCntlData(stdout, cpXSData) ; 
f reeXSCntlData(cpXSData) ; 
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break; 

case 2: /* receive xsCntlData */ 
inputXSCntlData(stdin, &xsCData) ; 
#ifdef DEBUG 

outputXSCntlData(stderr, &xsCData) ; 

#endif 

xsCntlDataOutd /* stdout */ , &xsCData); 
break; 

case 3: /* receive xsCntlDatas */ 

xsCntlDatasIn(0 /* stdin */ , &xsCDatas); 
outputXSCntlDatas(stdout, &xsCDatas) ; 
cpXSDatas = copyXSCntlDatas (&xsCDatas , NULL); 
outputXSCntlDatas(stdout, cpXSDatas) ; 
f reeXSCntlDatas(cpXSDatas) ; 

break; 

case 4: /* receive xsCntlDatas */ 
inputXSCntlDatas(stdin, &xsCDatas) ; 
#ifdef DEBUG 

outputXSCntlDatas(stderr, &xsCDatas) ; 

#endif 

xsCntlDatasOutd /* stdout */ , &xsCDatas); 
break; 

} 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* Please do not edit this file. 

* It was generated using rpcgen. 

*/ 

#include <rpc/rpc.h> 

#include <shast ra/datacomm/xsCntlData . h> 
bool_t 

xdr_objId(xdrs, objp) 
XDR *xdrs; 
objld *objp; 



{ 



} 



if ( !xdr_u_long(xdrs, &obj p->lSIdTag ) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->HdTag ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_objIds(xdrs, objp) 
XDR *xdrs; 
objlds *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->obj Ids_val, (u_int *)&objp-> 
objIds_len, ~0, sizeof (obj Id) , xdr_objId)) { 
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return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_xsOpcode(xdrs, objp) 
XDR *xdrs; 
xsOpcode *objp; 

{ 

if ( !xdr_enum(xdrs, (enum_t *)objp)) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_xsMouseData(xdrs, objp) 
XDR *xdrs; 
xsMouseData *objp; 

{ 

if ( !xdr_int(xdrs, &obj p->event ) ) { 
return (FALSE); 

} 

if ( !xdr_int(xdrs, &objp->x)) { 
return (FALSE); 

} 

if ( !xdr_int(xdrs, &objp->y)) { 
return (FALSE); 

} 

if ( !xdr_int(xdrs, &obj p->value) ) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_xsPersData(xdrs, objp) 
XDR *xdrs; 
xsPersData *objp; 

{ 

if ( !xdr_int(xdrs, &objp->fov)) { 
return (FALSE); 

} 

if ( !xdr_double(xdrs, &obj p->aspect ) ) { 
return (FALSE); 

} 

if ( !xdr_double(xdrs, &obj p->near) ) { 
return (FALSE); 

} 

if ( !xdr_double(xdrs, &objp->far)) { 
return (FALSE); 

} 
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return (TRUE); 

} 

bool_t 

xdr_xsOrthoData(xdrs, objp) 
XDR *xdrs; 
xsOrthoData *objp; 



{ 



} 



if ( !xdr_double(xdrs, &obj p->lef t ) ) { 
return (FALSE); 

} 

if ( !xdr_double(xdrs, &obj p->right ) ) { 
return (FALSE); 

} 

if ( !xdr_double(xdrs, &obj p->bottom) ) { 
return (FALSE); 

} 

if ( !xdr_double(xdrs, &objp->top)) { 
return (FALSE); 

} 

if ( !xdr_double(xdrs, &obj p->near) ) { 
return (FALSE); 

} 

if ( !xdr_double(xdrs, &objp->far)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsViewData(xdrs, objp) 
XDR *xdrs; 
xsViewData *objp; 



{ 



} 



if ( !xdr_vector(xdrs, (char *) obj p->eyePt , 3, sizeof (double) , 
xdr_double)) { 
return (FALSE); 

} 

if ( !xdr_vector(xdrs, (char *) obj p->ref Pt , 3, sizeof (double) , 
xdr_double)) { 
return (FALSE); 

} 

if ( !xdr_int (xdrs, &obj p->twist ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsPolarData(xdrs, objp) 
XDR *xdrs; 
xsPolarData *objp; 

{ 
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if ( !xdr_double(xdrs, &obj p->distance) ) { 
return (FALSE); 

} 

if ( !xdr_int(xdrs, &obj p->azim) ) { 
return (FALSE); 

} 

if ( !xdr_int(xdrs, &obj p->inci) ) { 
return (FALSE); 

} 

if ( !xdr_int(xdrs, &obj p->twist ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsF4vect(xdrs, objp) 
XDR *xdrs; 
xsF4vect objp; 

{ 

if ( !xdr_vector(xdrs, (char*)objp, 4, sizeof ( float ) , xdr_float)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsF4mat(xdrs, objp) 
XDR *xdrs; 
xsF4mat objp; 

{ 

if ( !xdr_vector(xdrs, (char*)objp, 4, sizeof (xsF4vect ) , xd r_xsF4vect ) ) 
{ 

return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsORGBData(xdrs, objp) 
XDR *xdrs; 
xsORGBData *objp; 

{ 

if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

if ( !xdr_vector(xdrs, (char *)objp->rgb, 3, sizeof (double) , xdr_double) 
) { 

return (FALSE); 

} 

return (TRUE); 
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bool_t 

xdr_xsOShadeData(xdrs, objp) 
XDR *xdrs; 
xsOShadeData *objp; 

{ 

if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

if ( !xdr_int(xdrs, &obj p->shade) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsORGBMData(xdrs, objp) 
XDR *xdrs; 
xsORGBMData *objp; 

{ 

if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

if ( !xdr_int(xdrs, &obj p->rgbModel) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsOCMapData(xdrs, objp) 
XDR *xdrs; 
xsOCMapData *objp; 

{ 

if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

if ( !xdr_int(xdrs, &obj p->colorMap) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsODispData(xdrs, objp) 
XDR *xdrs; 
xsODispData *objp; 

{ 

if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

if ( !xdr_int(xdrs, &obj p->dispMode) ) { 
return (FALSE); 

} 
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return (TRUE); 

} 

bool_t 

xdr_xsOTransData(xdrs, objp) 
XDR *xdrs; 
xsOTransData *objp; 

{ 

if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

if ( !xdr_vector(xdrs, (char *) obj p->t rans , 3, sizeof (double) , 
xdr_double)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsORotateData(xdrs, objp) 
XDR *xdrs; 

xsORotateData *objp; 

{ 

if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

if ( !xdr_vector(xdrs, (char *) obj p->rotate, 3, sizeof (double) , 
xdr_double)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsOScaleData(xdrs, objp) 
XDR *xdrs; 
xsOScaleData *objp; 

{ 

if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

if ( !xdr_vector(xdrs, (char *) obj p->scale, 3, sizeof (double) , 
xdr_double)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsOAppMatData(xdrs, objp) 
XDR *xdrs; 

xsOAppMatData *objp; 

{ 
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if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

if ( !xdr_xsF4mat(xdrs, obj p->appMat ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsOSetMatData(xdrs, objp) 
XDR *xdrs; 

xsOSetMatData *objp; 

{ 

if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

if ( !xdr_xsF4mat(xdrs, obj p->setMat ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsOGroupData(xdrs, objp) 
XDR *xdrs; 
xsOGroupData *objp; 

{ 

if ( !xdr_objIds(xdrs, &obj p->obj ects ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsCntlData(xdrs, objp) 
XDR *xdrs; 
xsCntlData *objp; 

{ 

if ( !xdr_xsOpcode(xdrs, &obj p->opcode) ) { 
return (FALSE); 

} 

switch (obj p->opcode) { 
case xs_NoOp: 

break; 
case xs_Mouse: 

if ( !xdr_xsMouseData(xdrs, &obj p->xsCntlData_u . mouse) ) 
return (FALSE); 

} 

break; 
case xs_WinSelect : 

if ( !xdr_objId(xdrs, &obj p->xsCntlData_u . winlndex) ) { 
return (FALSE); 
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} 

break; 
case xs_WinForeRGB : 

if ( !xdr_vector(xdrs, (char *) obj p->xsCntlData_u . foreRGB, 3, sizeof 

(double), xdr_double) ) { 

return (FALSE); 

} 

break; 
case xs_WinBackRGB: 

if ( !xdr_vector(xdrs, (char *) obj p->xsCntlData_u . backRGB, 3, sizeof 

(double), xdr_double)) { 

return (FALSE); 

} 

break; 
case xs_WinShade: 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . shade) ) { 
return (FALSE); 

} 

break; 
case xs_WinRGBModel: 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . rgbModel) ) { 
return (FALSE); 

} 

break; 
case xs_WinColorMap: 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . colorMap) ) { 
return (FALSE); 

} 

break; 
case xs_WinTexture : 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . textu re) ) { 
return (FALSE); 

} 

break; 
case xs_WinEnvMap : 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . envMap) ) { 
return (FALSE); 

} 

break; 
case xs_WinDispMode: 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . dispMode) ) { 
return (FALSE); 

} 

break; 
case xs_WinViewMode: 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . viewMode) ) { 
return (FALSE); 

} 

break; 
case xs_WinPersMode : 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . persMode) ) { 
return (FALSE); 

} 
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break; 
case xs_WinSelMode: 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . selMode) ) { 
return (FALSE); 

} 

break; 
case xs_WinPers: 

if ( !xdr_xsPersData(xdrs, &obj p->xsCntlData_u . pers ) ) { 
return (FALSE); 

} 

break; 
case xs_WinOrtho: 

if ( !xdr_xsOrthoData(xdrs, &obj p->xsCntlData_u . ortho) ) { 
return (FALSE); 

} 

break; 
case xs_WinView: 

if ( !xdr_xsViewData(xdrs, &obj p->xsCntlData_u . view) ) { 
return (FALSE); 

} 

break; 
case xs_WinPolar: 

if ( !xdr_xsPolarData(xdrs, &obj p->xsCntlData_u . polar) ) { 
return (FALSE); 

} 

break; 
case xs_WinViewEye : 

if ( !xdr_vector(xdrs, (char *)objp->xsCntlData_u.eyePt, 3, sizeof 

(double), xdr_double)) { 

return (FALSE); 

} 

break; 
case xs_WinViewRef : 

if ( !xdr_vector(xdrs, (char *) obj p->xsCntlData_u . refPt, 3, sizeof 

(double), xdr_double)) { 

return (FALSE); 

} 

break; 
case xs_WinViewTwist : 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . twist ) ) { 
return (FALSE); 

} 

break; 
case xs_WinTrans: 

if ( !xdr_vector(xdrs, (char *) obj p->xsCntlData_u . trans, 3, sizeof 

(double), xdr_double)) { 

return (FALSE); 

} 

break; 
case xs_WinScale: 

if ( !xdr_vector(xdrs, ( cha r *) obj p->xsCntlData_u . scale, 3, sizeof 

(double), xdr_double)) { 

return (FALSE); 
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} 

break; 
case xs_WinRotate : 

if ( !xdr_vector(xdrs, (char *) obj p->xsCntlData_u . rotate, 3, sizeof 

(double), xdr_double)) { 

return (FALSE); 

} 

break; 
case xs_WinSetMat : 

if ( !xdr_xsF4mat(xdrs, obj p->xsCntlData_u . setMat ) ) { 
return (FALSE); 

} 

break; 
case xs_WinAppMat : 

if ( !xdr_xsF4mat(xdrs, obj p->xsCntlData_u . appMat ) ) { 
return (FALSE); 

} 

break; 
case xs_WinResetMat : 

break; 
case xs_ObjWireRGB: 

if ( !xdr_vector(xdrs, (char *) obj p->xsCntlData_u . obj RGB, 3, sizeof 
(double), xdr_double)) { 
return (FALSE); 

} 

break; 
case xs_ObjShade: 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . obj Shade) ) { 
return (FALSE); 

} 

break; 
case xs_ObjRGBModel: 

if ( !xdr_int(xdrs, &objp->xsCntlData_u.objRgbModel) ) { 
return (FALSE); 

} 

break; 
case xs_ObjColorMap: 

if ( !xdr_int(xdrs, &objp->xsCntlData_u.objColorMap) ) { 
return (FALSE); 

} 

break; 
case xs_ObjTexture : 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . objTexture) ) { 
return (FALSE); 

} 

break; 
case xs_ObjEnvMap: 

if ( !xdr_int(xdrs, &obj p->xsCntlData_u . obj EnvMap) ) { 
return (FALSE); 

} 

break; 
case xs_ObjDispMode: 

if ( !xdr_int(xdrs, &objp->xsCntlData_u.objDispMode) ) { 
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return (FALSE); 

} 

break; 
case xs_ObjTrans: 

if ( !xdr_vector(xdrs, (char *)objp->xsCntlData_u.objTrans, 3, 

sizeof (double) , xdr_double)) { 

return (FALSE); 

} 

break; 
case xs_ObjScale: 

if ( !xdr_vector(xdrs, ( cha r *) obj p->xsCntlData_u . obj Scale, 3, 

sizeof (double) , xdr_double)) { 

return (FALSE); 

} 

break; 
case xs_ObjRotate: 

if ( !xdr_vector(xdrs, ( cha r *) obj p->xsCntlData_u . obj Rotate, 3, 

sizeof (double) , xdr_double)) { 

return (FALSE); 

} 

break; 
case xs_ObjSetMat : 

if ( !xdr_xsF4mat(xdrs, obj p->xsCntlData_u . obj SetMat ) ) { 
return (FALSE); 

} 

break; 
case xs_0bj AppMat : 

if ( !xdr_xsF4mat(xdrs, obj p->xsCntlData_u . obj AppMat ) ) { 
return (FALSE); 

} 

break; 
case xs_ObjSetIndex: 

if ( !xdr_objIds(xdrs, &obj p->xsCntlData_u . obj Index) ) { 
return (FALSE); 

} 

break; 
case xs_ObjDisplay : 

if ( !xdr_objIds(xdrs, &obj p->xsCntlData_u . obj Display) ) { 
return (FALSE); 

} 

break; 
case xs_ObjUndisplay: 

if ( !xdr_objIds(xdrs, &obj p->xsCntlData_u . obj Undisplay) ) { 
return (FALSE); 

} 

break; 
case xs_ObjDelete: 

if ( !xdr_objIds(xdrs, &obj p->xsCntlData_u . obj Delete) ) { 
return (FALSE); 

} 

break; 
case xs_ObjResetMat : 
break; 
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case xs_Obj sWireRGB: 

if ( !xdr_xsORGBData(xdrs, &obj p->xsCntlData_u . obj sRGB) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sShade: 

if ( !xdr_xsOShadeData(xdrs, &obj p->xsCntlData_u . obj sShade) ) { 
return (FALSE); 

} 

break; 
case xs_ObjsRGBModel: 

if ( !xdr_xsORGBMData(xdrs, &obj p->xsCntlData_u . obj sRGBM ) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sColorMap: 

if ( !xdr_xsOCMapData(xdrs, &obj p->xsCntlData_u . obj sCMap) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sTexture: 

if ( !xdr_xsOCMapData(xdrs, &objp->xsCntlData_u. obj sTexture) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sEnvMap : 

if ( !xdr_xsOCMapData(xdrs, &obj p->xsCntlData_u . obj sEnvMap) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sDispMode: 

if ( !xdr_xsODispData(xdrs, &obj p->xsCntlData_u . obj sDispMode) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sTrans : 

if ( !xdr_xsOTransData(xdrs, &obj p->xsCntlData_u . obj sTrans ) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sRotate : 

if ( !xdr_xsORotateData(xdrs, &obj p->xsCntlData_u . obj sRotate) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sScale: 

if ( !xdr_xsOScaleData(xdrs, &obj p->xsCntlData_u . obj sScale) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sSetMat : 

if ( !xdr_xsOSetMatData(xdrs, &obj p->xsCntlData_u . obj sSetMat ) ) { 
return (FALSE); 
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} 

break; 
case xs_Obj sResetMat : 

if ( !xdr_xsOGroupData(xdrs, &obj p->xsCntlData_u . obj sResetMat ) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sAppMat : 

if ( !xdr_xsOAppMatData(xdrs, &obj p->xsCntlData_u . obj sAppMat ) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sSetlndex: 

if ( !xdr_xsOGroupData(xdrs, &obj p->xsCntlData_u . obj slndex) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sDisplay : 

if ( !xdr_xsOGroupData(xdrs, &obj p->xsCntlData_u . obj sDisplay) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sUndisplay : 

if ( !xdr_xsOGroupData(xdrs, &obj p->xsCntlData_u . obj sUndisplay ) ) { 
return (FALSE); 

} 

break; 
case xs_0bj sDelete : 

if ( !xdr_xsOGroupData(xdrs, &obj p->xsCntlData_u . obj sDelete) ) { 
return (FALSE); 

} 

break; 

} 

return (TRUE); 



bool_t 

xdr_xsCntlData_P(xdrs, objp) 
XDR *xdrs; 
xsCntlData_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof (xsCntlData) , 
xdr_xsCntlData) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsCntlDatas(xdrs, objp) 
XDR *xdrs; 
xsCntlDatas *objp; 

{ 
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if ( !xdr_array(xdrs, (char **)&obj p->xsCntlDatas_val, (u_int *)&objp-> 
xsCntlDatas_len, ~0, sizeof (xsCntlData ) , xd r_xsCntlData ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_xsCntlDatas_P(xdrs, objp) 
XDR *xdrs; 

xsCntlDatas_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof (xsCntlDatas ) , 
xdr_xsCntlDatas) ) { 
return (FALSE); 

} 

return (TRUE); 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* cISvrCntl.c 

*/ 

#include <stdio.h> 
#include <string.h> 

#include <shast ra/shast ra . h> 

#include <shast ra/utils/list . h> 

#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/genui. h> 

#in elude <shastra/shautils/clientHosts.h> 
#in elude <shastra/shautils/kernelFronts.h> 

#include <shast ra/network/hostMgr . h> 
#include <shast ra/network/ server. h> 

#include <shast ra/f ront/f ront . h> 
#include <shast ra/f ront/f ront P. h> 
#in elude <shast ra/f ront/f ront_client . h> 
#in elude <shast ra/f ront/clSvrCntl . h> 
#in elude <shast ra/f ront /clSvrCnt IP. h> 
#in elude <shastra/front/shastraCntl.h> 

static Shast raToolMode iCISvrModeMine; 
static ShastraToolMode iCISvrMode; 
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static shastrald def ServerSId = { NULL, NULL, TEST_SERVICE_NAME}; 
extern chooseOne *pcoClSvr; 
hostData *pHostShaCurrClnt ; 

static shastraldTag currClntSIdTag; 



void 

clSvrSetSelfModeOprn( ) 
{ 

iCISvrModeMine = shastraNameToMode(pFrontSId->nmApplicn) ; 

} 



char ** 
getServerNameList (pSId) 
shastrald* pSId; 

{ 

char **sbNames; 

if (pSId == NULL){ 
if (iCISvrMode == 0){ 

def ServerSId . nmApplicn = pFrontSId->nmApplicn; 

} 

else{ 

def ServerSId . nmApplicn = shastraModeToName(iClSvrMode) ; 

} 

sbNames = clHosts2StrTab(&def ServerSId, PSIDNMHOST | PSIDNMAPPL); 

} 

else{ 

sbNames = clHosts2StrTab(pSId, PSIDNMHOST | PSIDNMAPPL); 

} 

return sbNames; 

} 

char ** 

getServerNameListByService( iService) 
int iService; 

{ 

char **sbNames; 

def ServerSId . nmApplicn = shastraServiceToName(iService) ; 

sbNames = clHosts2StrTab(&defServerSId, PSIDNMHOST | PSIDNMAPPL); 

return sbNames; 

} 

void 

setClSvrServerNamesOprn(pSId) 
shastrald *pSId; 

{ 

char **sbNames, *sService; 

if(pcoClSvr == NULL){ 
return; 
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} 

sService = shastraModeToName(iClSvrMode) ; 
if (strcmp(pSId->nmApplicn, sService) ){ 
return; /*not current service type*/ 

} 

sbNames = getServerNameList ( pSId ) ; 

chooseOneChangeList (pcoClSvr, sbNames, coNoInitialHighlight ) ; 
if (sbNames) { 

strListDestroy(sbNames) ; 

} 



/* 

* Function 
*/ 

void 

clSvrSetCurrHostOprn(pHost, f Force) 
hostData *pHost; 
int fForce; 

{ 

if(!fForce && ( pHostShaCu rrClnt != NULL)){ 
return; /*only set if not already set*/ 

} 

pHostShaCurrClnt = pHost; 

if (pHostShaCurrClnt != NULL){ 

currClntSIdTag = pHostShaCurrClnt->lSIDTag; 
#ifdef DEBUG 

fprintf (stderr, "currClntSIdTag = %ld, pHost = %ld\n", 
currClntSIdTag, pHost); 
#endif /* DEBUG */ 
} 

else{ 

clSv rUn select Op rn ( ) ; 

} 

/* 

set and update user interface element flags., mode etc 
*/ 

} 

/* 

* Function 
*/ 

void 

clSvrResetCurrHostOprn(pHost, fForce) 
hostData *pHost; 
int fForce; 

{ 

if(!fForce && (pHostShaCurrClnt != pHost)){ 

return; /*only set if not already set*/ 

} 

else{ 

clSv rUn select Op rn ( ) ; 

} 
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} 

hostData * 

clSvrHostFromService( iService, iCISvr) 
int iService; 
int iCISvr; 

{ 

hostData *pHost; 

def ServerSId . nmApplicn = shastraServiceToName(iService) ; 
pHost = getClntHostByIndex(&defServerSId, iCISvr) ; 

return pHost; 

} 

hostData * 

getClSvrHostFromIndex( iCISvr) 
int iCISvr; 

{ 

hostData *pHost; 
shastrald *pSId = NULL; 

if (currClntSIdTag){ 

pSId = mapSIdTag2SId(&currClntSIdTag) ; 

} 

if (pSId == NULL){ 

pSId = &def ServerSId; 

def ServerSId . nmApplicn = shastraModeToName(iClSvrMode) ; 

} 

pHost = getClntHostByIndex(pSId, iCISvr); 
#ifdef DEBUG 

fprintf (stderr,"getClSVrHostFromIndex( )->smIdTag = %ld, pHost = %ld\n", 
pHost->lSIDTag, pHost); 
#endif /* DEBUG */ 
return pHost; 

} 

void 

clSvrSetModeOprn( iMode) 

Shast raToolMode iMode; 

{ 

iCISvrMode = iMode; 
/*update the shown set*/ 

def ServerSId . nmApplicn = shastraModeToName( iCISvrMode) ; 
set CISvrServerNames Op rn(&def ServerSId ) ; 

} 

/* 

* Function 
*/ 
void 

clSvrUnselectOprn( ) 
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pHostShaCurrClnt = NULL; 
currClntSIdTag = 0; 

} 

/* 

* Function 
*/ 
void 

clSvrSelectOprn ( i) 
int i; 

{ 

hostData *pHost; 

pHost = getClSvrHostFromIndex( i) ; 
clSvrSetCurrHostOprn(pHost, True) ; 
if (clientSelectFunc != NULL) { 

(*client_Select_Func) (pHostShaCurrClnt) ; 

} 

} 



/* 

* Function 
*/ 

void 

clSvrRenameOprn ( i, name) 
int i; 
char *name; 

{ 

/*change*/ 

} 

/* 

* Function 
*/ 

void 

clSv rDis connect Oprn ( i) 
int i; 

{ 

hostData *pHost; 

pHost = getClSvrHostFromIndex( i) ; 

if (clntTerminateReq(NULL, pHost) == -l){ 

clSvrUtilPopupMessage("clntTerminateReq( ) Error ! \n" ) ; 

return; 

} 

} 

/* 

* Function 
*/ 

void 

clSvrTerminateOprn( i) 
int i; 
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{ 

hostData *pHost; 

pHost = getClSvrHostFromIndex( i) ; 

if (clntTerminateReq(NULL, pHost) == -l){ 

clSvrUtilPopupMessage("clntTerminateReq( ) Error ! \n" ) ; 

return; 

} 

clSvrUtilPopupMessageC'This operation is presently disabled ! \n" ) ; 



/* 

* Function 
*/ 

void 

clSvrCreateOprn ( sbName) 
char *sbName; 

{ 

printf ("create %s on %s\n", shastraModeToName(iClSvrMode) , sbName); 
/*execute a starter script*/ 

} 

/* 

* Function 
*/ 

void 

clSvrServerOprn ( sbName, iPort) 
char *sbName; 
int iPort; 

{ 

shastrald sld; 

shaCmdData *pCmdData = NULL; 

if ( ! strcmp(pFrontSId->nmApplicn, sbName) && 
(pFrontSId->iPort == iPort)){ 
clSvrUtilPopupMessageC'Warning : Connecting to self!\n"); 

} 

memset(&sld, 0, sizeof ( shast raid ) ) ; 
sld . nmApplicn = shastraModeToName(iClSvrMode) ; 
sld.nmHost = sbName; 
sld.iPort = iPort; 
/*CHECK*/ 

sld.lSIDTag = mplexGetUniqueld ( ) ; 
sld.HPAddr = hostName2IPAdd ress ( sbName) ; 
/*check if already connected*/ 

if (getClntHostByIdTag(&sId, &sld . ISIDTag ) != NULL){ 

ClSvrUtilPopupMessageC'Warning: Already connected to host!\n"); 

} 

printf ("server connect to %s on %s\n", sld . nmApplicn, sbName); 
/* connect using non-shastra info */ 
if ( client Cont rolDataFunc) { 

(*clientControlDataFunc) (shastraModeToService(iClSvrMode) , &pCmdData) ; 

if(pCmdData == NULL){ 

clSvrUtilPopupMessageC'Invalid Control Data!\n"); 
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return; 

} 

} 

else{ 

clSvrUtilPopupMessageC'Can 't Obtain Control Data!\n"); 
return; 

} 

if (clntConnectReq(NULL, &sld, pCmdData) == -1){ 

clSvrUtilPopupMessage("clntConnectReq( ) Error ! \n" ) ; 
return; 

} 

} 



/* 

* Function 
*/ 
void 

clSvrConnectOprn( iWhich) 
int iWhich; 

{ 

shastraldTag *pSIdTag; 

shastrald *pSId; 

shaCmdData *pCmdData = NULL; 

pSIdTag = krFrNdx2SIdTag(iWhich) ; 
pSId = mapSIdTag2SId(pSIdTag) ; 
if (pSId == NULL){ 

clSvrUtilPopupMessageC'Invalid System ! \n" ) ; 

return; 

} 

if(*pSIdTag == pFrontSId->lSIDTag ) { 

clSvrUtilPopupMessageC'Warning : Connecting to self!\n"); 

} 

/*check if already connected*/ 

if (getClntHostByIdTag(pSId, pSIdTag) != NULL){ 

ClSvrUtilPopupMessageC'Warning: Already connected ! \n" ) ; 

} 

if ( client Cont rolDataFunc) { 

(*clientCont rolDataFunc) ( shast raNameToService(pSId->nmApplicn) , & 

pCmdData) ; 
if (pCmdData == NULL){ 

ClSvrUtilPopupMessageC'Invalid Control Data!\n"); 
return; 

} 

} 

else{ 

ClSvrUtilPopupMessageC'Can 't Obtain Control Data!\n"); 
return; 

} 

if (clntConnectReq(NULL, pSId, pCmdData) == -1){ 

clSvrUtilPopupMessage("clntConnectReq( ) Error ! \n" ) ; 
return; 
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} 

} 



void 

clSvrOperationsOprn(pMgrCD, fUp) 
mgrCntlData *pMgrCD; 
int fUp; 

{ 

if (pHostShaCurrClnt == NULL){ 

clSvrUtilPopupMessageC'Invalid Current Server!\n"); 
return; 

} 

if (clientOperatorFunc != NULL) { 

(*clientOperatorFunc) (pHostShaCurrClnt) ; 

} 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* clSvrCntlUI. c 

*/ 

#include <stdio.h> 

#include <Xm/CascadeB . h> 
#include <Xm/RowColumn . h> 
#include <Xm/ToggleB. h> 
#include <Xm/TextF.h> 
#include <Xm/Label.h> 
#include <Xm/Form.h> 
#include <Xm/PushB.h> 
#include <Xm/SelectioB. h> 
#include <Xm/Separator. h> 
#include <Xm/Xm.h> 
#include <X11/Shell. h> 

#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/menu . h> 
#include <shast ra/uitools/toggles . h> 
#include <shast ra/uitools/buttons . h> 
#include <shast ra/uitools/genui. h> 
#include <shast ra/uitools/dialog . h> 
#include <shast ra/uitools/choose. h> 
#in elude <shast ra/uitools/text . h> 
#in elude <shastra/u it oo Is/control Pa nel.h> 

#include <shast ra/front /front St ate. h> 
#include <shast ra/front /front P. h> 
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#in elude <shast ra/f ront/clSvrCntl . h> 
#in elude <shast ra/f ront/clSvrCntlP. h> 
#in elude <shastra/front/shastraCntl.h> 

static void clSvrSysGenChoose0neSetup(Prot2(Widget, optChooseCntlData*) ) ; 
static void clSvrSysGenChoose0neCB(Prot3(Widget, XtPointer, XtPointer)); 

Widget createHelpPD( ) ; 

static Widget createClSvrControlPD( ) ; 
static Widget createClSvrDebugPD( ) ; 
static void clSvrSetModeCB( ) ; 
static void clSvrShowTraceCB( ) ; 
static void clSvrConnectCOCB( ) ; 
static void clSvrOperationCB( ) ; 
static void clSvrDismissCB( ) ; 
static void clSvrDlgChooseCB( ) ; 
static void chooseOneClSvrCB( ) ; 
static void clSvrCmdCB( ) ; 
static void clSvrConnectCB( ) ; 



chooseOne *pcoClSvr; 

static chooseOne *pcoClSvrSys ; 

static mg rCntlData *pClSvrDismissData; 
static int fDebugTrace = 1; 

static textCntlData clSvrMsgBuf Cntl = {"clSvrMsgBuf f er" , NULL, NULL}; 
static Widget 

createClSvrMenuBar(wgParent, sName, argList) 
Widget wgParent; 
char *sName; 
XtVarArgsList argList; 

{ 

Widget wgMenuBar; 

Widget wgToolPD, wgCont rolPD, wgDebugPD, wgHelpPD; 

Arg args[8]; 

int n ; 

static menultem serversPD [ ] = { 

{"Shilp", (XtPointer) Shast ra_0SHILP, False, clSvrSetModeCB}, 
{"Ganith", (XtPointer) Shast ra_OGANITH, False, ClSvrSetModeCB}, 
{"Vaidak", (XtPointer) Shast ra_OVAIDAK, False, ClSvrSetModeCB}, 
{"Bhautik", (XtPointer) Shast ra_OBHAUTIK, False, ClSvrSetModeCB}, 
{"Sculpt", (XtPointer) Shast ra_OSCULPT, False, ClSvrSetModeCB}, 
{"Splinex", (XtPointer) Shast ra_OSPLINEX, False, ClSvrSetModeCB}, 
{"Gati", (XtPointer) Shastra_OGATI, False, ClSvrSetModeCB}, 
{NULL} 

}; 

static menultem toolkitsPDf] = { 

{"Shilp", (XtPointer) Shast ra_SHILP, False, ClSvrSetModeCB}, 
{"Ganith", (XtPointer) Shast ra_GANITH, False, ClSvrSetModeCB}, 
{"Vaidak", (XtPointer) Shast ra_VAIDAK, False, ClSvrSetModeCB}, 
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{"Bhautik", (XtPointer) Shast ra_BHAUTIK, False, clSvrSetModeCB}, 
{"Sculpt", (XtPointer) Shast ra_SCULPT, False, ClSvrSetModeCB}, 
{"Splinex", (XtPointer) Shast ra_SPLINEX, False, ClSvrSetModeCB}, 
{"Gati", (XtPointer) Shastra_GATI, False, ClSvrSetModeCB}, 
{"Rasayan", (XtPointer) Shast ra_RASAY AN, False, ClSvrSetModeCB}, 
{NULL} 

}; 

static menultem servicesPDf] = { 

{"Test", (XtPointer) Shast ra_TEST, False, ClSvrSetModeCB}, 
{"Talk", (XtPointer) Shast ra_TALK, False, ClSvrSetModeCB}, 
{"Draw", (XtPointer) Shast ra_DRAW, False, ClSvrSetModeCB}, 
{"Poly", (XtPointer) Shast ra_P0LY, False, ClSvrSetModeCB}, 
{"Phone", (XtPointer) Shast ra_PH0NE, False, ClSvrSetModeCB}, 
{"Video", (XtPointer) Shast ra_VIDE0, False, ClSvrSetModeCB}, 
{NULL} 

}; 

static menultem gamesPDf] = { 

{"Chess", (XtPointer) Shast ra_CHESS, False, ClSvrSetModeCB}, 
{NULL} 

}; 

static menultem toolsPDf] = { 

{"Toolkits", NULL, False, NULL, NULL, NULL, toolkitsPD, MENU_RADIO_0}, 
{"Services", NULL, False, NULL, NULL, NULL, servicesPD, MENU_RADIO_0}, 
{"Games", NULL, False, NULL, NULL, NULL, gamesPD, MENU_RADIO_0}, 
{"Servers", NULL, False, NULL, NULL, NULL, serversPD, MENU_RADIO_0}, 
{NULL} 

}; 

n = 0; 

if (argList) { 

XtSetArg(args [n] , XtVaNestedList, argList); 
n++; 

} 

XtSetArg(args [n] , XmNrightAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNlef tAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNtopAttachment, XmATTACH_FORM) ; 
n++; 

wgMenuBar = XmCreateMenuBar(wgParent, sName, args, n); 

wgControlPD = createClSvrControlPD(wgMenuBar) ; 

wgToolPD = pulldownMenuCreate(wgMenuBar, "Tools", MENU_CHECK, 

toolsPD, NULL); 
wgDebugPD = createClSvrDebugPD(wgMenuBar) ; 
wgHelpPD = c reateHelpPD (wgMenuBa r ) ; 
return wgMenuBar; 



static void 

createClSvrCntlAreaCB(wgParent, xpClient, xpCall) 
Widget wgParent; 
XtPointer xpClient, xpCall; 
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Widget wgDbgText; 

Arg args[16] 



XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 



(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 



XmNrows, 5);n++; 
XmNcolumns, 32);n++; 
XmNeditable, False) ;n++; 
XmNeditMode, XmMULTI_LINE_EDIT) ;n++; 
XmNscrollingPolicy, Xm AUTOMATIC) ; n++; 
XmNvisualPolicy, XmCONSTANT) ; n++; 
XmNscrollBarDisplayPolicy, XmAS_NEEDED) ; n++; 
XmNtopAttachment, XmATTACH_FORM ) ;n++; 
XmNrightAttachment, XmATTACH_FORM ) ;n++; 
XmNleft Attachment, XmATTACH_FORM ) ; n++ ; 
XmNbottomAttachment, XmATTACH_FORM) ; n++; 
XmNscrollHorizontal, False); n++; 
XmNscrollVertical, True); n++; 
XmNwordWrap, True); n++; 



} 



wgDbgText = c reateMessageBuf f er (wgParent, "clSvrTextMsgs" , 

&clSvrMsgBuf Cntl, args,n); 
XtManageChild (wgDbgText) ; 



static Widget 

createClSvrDebugPD(wgMenuBar) 
Widget wgMenuBar; 



{ 



} 



Widget wgDebugPD; 

static menultem syncPDf] = { 

{"Foo", (XtPointer) NULL, False, 
{"Bar", (XtPointer) NULL, False, 
{NULL} 

}; 

static menultem debugPDf] = { 

{"Sync", NULL, False, NULL, NULL 
{"Trace", (XtPointer) NULL, True, 
&xmToggleButtonWid get Class}, 
{NULL} 

}; 

wgDebugPD = pulldownMenuCreate(wgMenuBar, 
debugPD, NULL); 

return wgDebugPD; 



NULL}, 
NULL}, 



NULL, syncPD, MENU_PUSH}, 
clSvrShowTraceCB, NULL, 



"Debug", MENU_MIXED, 



static void 

clSvrShowTraceCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmToggleButtonCallbackSt ruct *cbs; 
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fDebugTrace = cbs->set; 

} 

void 

f rontClSvrsCB(wgTgl, pMgrCD, xpFoo) 
Widget wgTgl; 
mgrCntlData *pMgrCD; 
XtPointer xpFoo; 

{ 

Widget wgShell; 

panelCntlData *pPanelCntl; 
int fToggles; 

static buttonltem panelBtnsf] = { 

{"Create", (XtPointer) ClSvrCmd_CREATE, clSvrCmdCB}, 
{"Server", (XtPointer) ClSvrCmd_SERVER, clSvrCmdCB}, 
{"Connect", (XtPointer) ClSvrCmd_CONNECT, clSvrConnectCB}, 
{NULL} 

}; 

if (pMgrCD->wgCntl) { 
return; 

} 

pMg rCD->wgTgl = wgTgl; 

pPanelCntl = (panelCntlData *) malloc ( sizeof (panelCntlData) ) ; 
memset ( pPanelCntl, 0, sizeof (panelCntlData) ) ; 

pPanelCntl->sName = "CISvr"; 
pPanelCntl->f nMenuBar = createClSvrMenuBar; 
pPanelCntl->panelBtns = panelBtns; 
pPanelCntl->f nChooseCB = chooseOneClSvrCB; 
pPanelCntl->f CntlArea = True; 

fToggles = PANEL_SELECT | PANEL_UNSELECT | PANEL_RENAME | 

PANEL_DISCONNECT | PANEL_TERMINATE ; 
pMg rCD->wgCntl = wgShell = 

createPanelCont rol( pMg rCD->wgParent , "serverCont rol" , 
wgTgl, pPanelCntl, 
fToggles, PANEL_CH00SE0NE, NULL); 

createClSvrCntlAreaCB(pPanelCntl->wgCntlArea, NULL, NULL); 

pClSvrDismissData = pPanelCntl->pDismiss ; 
pcoClSvr = pPanelCntl->pChooseOne; 

} 

static void 

clSvrDismissCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 
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defaultShellDismissCB(wg, (XtPointer) pClSvrDismissData, cbs); 

} 

static dialogCntlData dlgChooseClSvr; 
static void 

clSvrCmdCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

{ 

dialogCntlData *pDialogCD = &dlgChooseClSvr; 

if (pDialogCD->wgDialog == NULL){ 
Widget wgLabel, wgTextF; 
XmString str; 

pDialogCD->fFlags = DIAL0G_0K | DIALOG_CANCEL | DIALOG_HELP; 

pDialogCD->fMode = XmDIALOG_APPLICATION_MODAL ; 

pDialogCD->sMessage = "Choose a Host:"; 

pDialogCD->sName = "Host"; 

pDialogCD->f nCallback = clSvrDlgChooseCB; 

pDialogCD->f nNoMatchCallback = clSvrDlgChooseCB; 

pDialogCD->sbItems = NULL; 

createSelectionDialog (wg, "hostNameDialog" , pDialogCD, NULL); 
#ifdef WANT 

XtVaSet Values ( pD ia log CD->wg Dialog, 

XmNchildPlacement, XmPLACE_BELOW_SE LECTION, 
NULL) ; 

str = XmStringCreateSimpleC'Port Number"); 
wgLabel = 

XtVaCreateManagedWidget ("port Label" , xmLabelWidgetClass, 

pDialogCD->wgDialog, 

XmNalignment, XmALIGNMENT_BEGINNING, 

XmNlabelString, str, 

NULL) ; 
XmStringFree(str) ; 
wgTextF = 

XtVaCreateManagedWidget ( "portText" , xmTextFieldWidgetClass, 
pDialogCD->wgDialog, 
XmNvalue, "0", 
NULL) ; 

#endif /*WANT*/ 
} 

pDialogCD->xpClient = xpClient; 

defaultSelectionDialogPopup(pDialogCD, "Choose a Host:", "Host", 
getHostNameList( ) ) ; 

} 

static void 

clSvrDlgChooseCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
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XmSelectionBoxCallbackSt ruct *cbs ; 

{ 

dialogCntlData *pDialogCD = (dialogCntlData*)xpClient ; 

CISvrCmd iCISvrCmd = (ClSvrCmd)pDialogCD->xpClient; 

char *sName, *sPort = NULL; 

Widget wgList, wgTextF; 

static dialogCntlData dlgErrorMsgCD; 

dialogCntlData *pMsgDlgCD = &dlgErrorMsgCD; 

char nmBuf [256] ; 

int fKeepUp = 0, iPort = 0; 

#ifdef WANT 

wgTextF = XmSelectionBoxGetChild ( pDialogCD->wgDialog , XmDIALOG_WORK_AREA) 

if (wgTextF){ 

sPort = XmTextFieldGetSt ring (wgTextF) ; 
if (sPort){ 

iPort = atoi(sPort) ; 

XtFree(sPort) ; 

} 

else{ 

iPort = 0; 

} 

} 

iPort = (iPort < 0)? 0: iPort; 
#endif /*WANT*/ 

switch ( cbs-> reason ) { 
default: 
break; 
case XmCR_0K: 

XmStringGetLtoR(cbs->value, XmSTRING_DEFAULT_CHARSET, &sName); 
switch (iClSvrCmd){ 
case ClSvrCmd_CREATE : 

clSvrCreateOprn ( sName) ; 

break; 
case ClSvrCmd_SERVER: 

clSvrServerOprn ( sName, iPort); 

break; 

} 

XtFree( sName) ; 
break; 
case XmCR_NO_MATCH : 

XmStringGetLtoR(cbs->value, XmSTRING_DEFAULT_CHARSET, &sName); 
if (verifyHostNameOprn(sName) ){ 

wgList = XmSelectionBoxGetChild (wg, XmDIALOG_LIST) ; 

XmListAddItem(wgList, cbs->value, 0); 

switch ( iCISvrCmd ) { 

case CISv rCmd_CREATE : 
clSvrCreateOprn(sName) ; 
break; 

case ClSvrCmd_SERVER: 
clSvrServerOprn(sName, iPort); 
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break; 
} 

} 

else{ /*tell invalid name*/ 

if (pMsgDlgCD->wgDialog == NULL){ 
pMsgDlgCD->fFlags = DIALOG_OK | DIALOG_HELP; 
pMsgDlgCD->fMode = XmDIALOG_APPLICATION_MODAL ; 
pMsgDlgCD->sName = "Error"; 
pMsgDlgCD->sMessage = "Bad Host!"; 

createErrorDialog (wg, "errorDialog" , pMsgDlgCD, NULL); 
} 

sprintf ( nmBuf , "Unknown Host %s!", sName); 
defaultDialogPopupMessage(pMsgDlgCD, nmBuf) ; 
fKeepUp = 1; 

} 

XtFree(sName) ; 
break; 

} 

if ( !fKeepUp){ 

defaultDialogCancelCB(pDialogCD->wgDialog, (XtPointer ) pDialogCD, cbs) ; 

} 

} 

static void 

disconnectClSvrsCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackStruct *cbs; 

{ 

panelAxnCntlData *pGenCD = (panelAxnCntlData*)xpClient; 
clSvrDisconnectOprn( ( int ) pGenCD->xpCall) ; 

} 

static void 

terminateClSvrsCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackStruct *cbs; 

{ 

panelAxnCntlData *pGenCD = (panelAxnCntlData*)xpClient; 
clSvrTerminateOprn( (int)pGenCD->xpCall) ; 

} 

static void 

renameClSvrsCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackStruct *cbs; 

{ 

panelAxnCntlData *pGenCD = (panelAxnCntlData*)xpClient; 
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clSvrRenameOprn( ( int ) pGenCD->xpCall, pGenCD->sbName) ; 

} 

static void 

chooseOneClSvrCB(wg, xpClientData, xpCallData) 
Widget wg; 

XtPointer xpClientData, xpCallData; 

{ 

int iWhich = (int ) xpCallData; 

panelCntlData *pPanelCntl = ( panelCntlData *) xpClientData; 

static panelAxnCntlData genCDConf irm; 
static panelAxnCntlData genCDRename; 

switch (pPanelCntl->iMode) { 
case PANEL_SELECT: 

clSvrSelectOprn(iWhich) ; 

break; 
case PAN EL_UN SELECT : 
/* old code clSvrUnselectOprn(iWhich) ; */ 

clSv rUn select Op rn ( ) ; 

break; 
case PANEL_RENAME: 

genCDRename . fnCallback = renameClSvrsCB; 

genCDRename . xpCall = xpCallData; 

pPanelCntl->xpClient = (XtPointer)&genCDRename; 

panelDef aultRenamePUCB(wg, xpClientData, xpCallData); 

break; 
case PANEL_DISCONNECT: 

genCDConf irm. fnCallback = disconnectClSvrsCB; 

genCDConf irm. xpCall = xpCallData; 

pPanelCntl->xpClient = (XtPointer)&genCDConf irm; 

panelDef aultConf irmPUCB(wg, xpClientData, xpCallData); 

break; 
case PANEL_TERMINATE: 

genCDConf irm. fnCallback = terminateClSvrsCB; 

genCDConf irm. xpCall = xpCallData; 

pPanelCntl->xpClient = (XtPointer)&genCDConf irm; 

panelDef aultConf irmPUCB(wg, xpClientData, xpCallData); 

break; 
default: 

break; 

} 

} 



static Widget 

createClSvrCont rolPD(wgMenuBar) 
Widget wgMenuBar; 

{ 

Widget wgControlPD; 
static mgrCntlData cntlOperation; 
static menultem controlPDf] = { 

{"Operations", (XtPointer) &cntlOperation, False, clSvrOperationCB}, 
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{"sep", (XtPointer) NULL, False, NULL, NULL, &xmSeparatorWidgetClass} 

{"Dismiss", (XtPointer) NULL, False, clSvrDismissCB}, 
{NULL} 

}; 

wgControlPD = pulldownMenuCreate(wgMenuBar, "Control", MENU_PUSH, 
controlPD, NULL); 

return wgControlPD; 

} 



static void 

clSvrOperationCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmToggleButtonCallbackSt ruct *cbs; 

{ 

mgrCntlData *mgrCntl = (mg rCntlData*) xpClient ; 
clSvrOperationsOprn(mgrCntl, cbs->set) ; 

} 

static void 

clSvrSetModeCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmToggleButtonCallbackSt ruct *cbs; 

{ 

static Widget wgCurrSet; 

if (cbs->set) { 

if(wgCurrSet && (wgCurrSet != wg)){ 

XmToggleButtonSetState(wgCurrSet, False, True); 

} 

wgCurrSet = wg; 

clSvrSetModeOprn( (ShastraToolMode)xpClient) ; 

} 

} 

static void 

clSvrConnectCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

{ 

static optChooseCntlData connectCD; 
connectCD. f nCallback = clSvrConnectCOCB; 
connectCD. xpClient = (XtPointer) NULL; 

clSvrSysGenChooseOneCB(wg, (XtPointer) & connectCD, NULL); 

} 

static void 
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clSvrConnectCOCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient, xpCall; 

{ 

int iWhich = (int) xpCall; 

clSvrConnectOprn(iWhich) ; 

} 

/* 

* Function — 
*/ 
void 

clSvrShowInf o( s ) 

char *s; 

{ 

if (clSvrMsgBufCntl.wgText && f DebugTrace) { 
wprintf (&clSvrMsgBufCntl, "%s" , s) ; 

} 

} 

void 

clSvrUtilPopupMessage(msg) 

char *msg; 

{ 

static dialogCntlData infoDlgCD; 

clSvrShowInfo(msg) ; 

if (infoDlgCD.wgDialog == NULL){ 

infoDlgCD.f Flags = DIAL0G_0K; 

infoDlgCD.f Behave = DIAL0G_AUT0 LOWER; 

infoDlgCD. iDelay = 5000; 

inf oDlgCD. sName = "Shastra Information"; 

infoDlgCD. sMessage = "Yo, User Dude!\nThis is, like, cool! 

createlnf ormat ion Dialog ( pFrontAppData->wgTop, " inf oDialog" 
&infoDlgCD, NULL); 

} 

defaultDialogPopupMessage(&infoDlgCD, msg) ; 

} 

static void 

clSvrSysGenChooseOneSetup(wg, pOptCD) 
Widget wg; 
optChooseCntlData *pOptCD; 

{ 

static String asDeff] = {NULL}; 
static optChooseCntlData *pChooseOneCD; 

pChooseOneCD = pOptCD; 

if (pcoClSvrSys == NULL) { 

pcoClSvrSys = chooseOneCreate(asDef , coNoInitialHighlight, 
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wg, genCntlChooseCOCB, 
(XtPointer) & pChooseOneCD, wg, 
"Choose System", 200, NULL); 

} 

} 

static void 

clSvrSysGenChooseOneCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient; 
XtPointer xpCall; 

{ 

char **sbNames; 

clSvrSysGenChooseOneSetup(wg, ( optChooseCntlData *) xpClient); 
sbNames = getSystemNameList ( ) ; 

chooseOneChangeList (pcoClSvrSys, sbNames, coNoInitialHighlight ) ; 
if (sbNames) { 

strListDestroy(sbNames) ; 

} 

chooseOneMobExec(pcoClSvrSys, wg) ; 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* collabCntl.c 

*/ 

#include <stdio.h> 
#include <string.h> 

#include <shast ra/utils/list . h> 

#include <shast ra/uitools/genui. h> 
#include <shast ra/uitools/chooseOne. h> 
#in elude <shast ra/uitools/text . h> 
#include <shast ra/uitools/dialog . h> 

#in elude <shast ra/network/hostMg r . h> 
#in elude <shast ra/ net work/ server. h> 

#include <shast ra/shautils/shautils . h> 
#include <shast ra/ s ha utils/ client Hosts . h> 
#include <shast ra/s ha utils/ kernel Fronts . h> 
#include <shast ra/ s ha ut ils/ sesMg r Front s . h> 

#in elude <shastra/front/collabCntl.h> 

#in elude <shastra/front/collabCntlP.h> 

#include <shast ra/f ront/f ront . h> 

#in elude <shast ra/f ront/f rontP.h> 

#in elude <shast ra/f ront/f ront Co llClient.h> 

#in elude <shast ra/f ront/f ront_client . h> 

#include <shast ra/f ront/f ront St ate. h> 
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hostData *pHostShaCurrColl; 
extern chooseOne *pcoCollab; 
extern chooseOne *pcoCollabFronts ; 

static shastrald def SesmSId = { NULL, NULL, TESTSESM_SERVICE_NAME}; 

static shastraldTag currCollSIdTag; 

static CollabOptionState collOptionState; 

static unsigned long collIxnMode; 

static unsigned long collFloorMode; 

static unsigned long collFormat ; 

static unsigned long collPermissions = SHASTRA_PERM_ACCESS | 
SHASTRA_PERM_BROWSE | SHASTRA_PERM_MODI FY; 

static int fFreeFloor = False; 

static shastraldTag sldTagToken; 

char ** 
getCollabNameList(lSIdTag) 
shastraldTag ISIdTag; 

{ 

char **sbNames; 
shastrald *pSId; 

ifdSIdTag == 0){ 

ISIdTag = currCollSIdTag; 

} 

ifdSIdTag == 0){ 

sbNames = clHosts2StrTab(&def SesmSId, PSIDNMHOST | PSIDNMAPPL); 

} 

else{ 

pSId = getSIdByTagInSIds(&lSIdTag, &shast raSesmlds ) ; 
sbNames = clHosts2StrTab(pSId, PSIDNMHOST | PSIDNMAPPL); 

} 

return sbNames; 



char ** 
getCollabFrontNameList( ISIdTag) 
shastraldTag ISIdTag; 

{ 

char **sbNames; 
shastraldTags *pSIdTags; 

ifdSIdTag == 0){ 

ISIdTag = currCollSIdTag; 

} 

ifdSIdTag == 0){ 
return NULL; 

} 

pSIdTags = getSesmFrontSIdTags(&lSIdTag) ; 
if(pSIdTags == NULL){ 

/*shouldn't happen!*/ 

return NULL; 

} 
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sbNames = mapSIdTags2StrTab(pSIdTags, 

PSIDNMHOST | PSIDNMAPPL | PSIDNMUSER) ; 

return sbNames; 

} 

void 

setCollabNamesOprn( ISIdTag) 
shastraldTag ISIdTag; 

{ 

char **sbNames; 
int iWhich; 

if(pcoCollab == NULL){ 
return; 

} 

iWhich = getCollablndexUSIdTag) ; 
sbNames = getCollabNameList ( ISIdTag ) ; 
chooseOneChangeList (pcoCollab, sbNames, iWhich); 
if (sbNames) { 

strListDestroy(sbNames) ; 

} 



void 

setCollabFrontNamesOprn( ISIdTag) 
shastraldTag ISIdTag; 

{ 

char **sbNames; 

if ( ( pcoCollabFronts == NULL) || (ISIdTag != currCollSIdTag) ){ 
return; 

} 

sbNames = getCollabFrontNameList(currCollSIdTag) ; 

chooseOneChangeList (pcoCollabFronts, sbNames, coNoInitialHighlight ) ; 
if (sbNames) { 

strListDestroy(sbNames) ; 

} 



void 

setCollabFrontPermsOprn( ISIdTag) 
shastraldTag ISIdTag; 

{ 

unsigned long IPerms; 

if( (pcoCollab == NULL) || (ISIdTag != currCollSIdTag) ){ 
return; 

} 

IPerms = getSesmFrontPerms (&currCollSIdTag, & pFrontSId->lSIDTag ) ; 
collabSetPermToggles ( IPerms ) ; 



void 
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setCollabFrontFloorOprn( smSIdTag, ISIdTag) 
shastraldTag smSIdTag, ISIdTag; 

{ 

unsigned long IPerms; 

char *sName; 

int fHave, fFree; 

if ( (pcoCollab == NULL) || (smSIdTag != currCollSIdTag) ){ 
return; 

} 

sldTagToken = ISIdTag; 

sName = mapSIdTag2Str(&lSIdTag, PSIDNMHOST | PSIDNMUSER) ; 
fHave = (ISIdTag == pFrontSId->lSIDTag ) ; 
fFree = False; 

collabSetFloorlnf o( sName, fHave, fFree); 
f ree( sName) ; 



int 

getCollabIndex( ISIdTag) 

shastraldTag ISIdTag; 

{ 

int iSession; 
shastrald *pSId; 

ISIdTag = (ISIdTag == 0) ? currCollSIdTag : ISIdTag; 
pSId = getSIdByTagInSIds(&lSIdTag, &shast raSesmlds ) ; 
if(pSId != NULL){ 

iSession = clHostsGetSIdTagIndex(pSId, &lSIdTag); 

} 

else{ 

iSession = -1; 

} 

return iSession; 



shastraldTag 

get CollabSIdTagFromIndex( iSession) 
int iSession; 

{ 

shastrald *pSId = NULL; 

shastraldTags *pSIdTags; 

if (currCollSIdTagK 

pSId = getSIdByTagInSIds(&currCollSIdTag, &shast raSesmlds ) ; 

} 

if(pSId == NULL){ 

pSId = &defSesmSId; /*W0NT WORK FOR OTHER SESSION TYPES*/ 

} 

pSIdTags = getClntHostSIdTags ( pSId ) ; 

if ((iSession < 0) || (iSession >= pSIdTags->shast raIdTags_len ) ) { 
return 0; 

} 
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else{ 

return pSIdTags->shastraIdTags_val [iSession] ; 

} 

} 

hostData * 

get CollabHostFromIndex( iSession) 
int iSession; 

{ 

hostData *pHost; 
shastrald *pSId = NULL; 

if (currCollSIdTagK 

pSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 

} 

if (pSId == NULL){ 

pSId = &defSesmSId; /*W0NT WORK FOR OTHER SESSION TYPES*/ 

} 

pHost = getClntHostByIndex(pSId, iSession); 
#ifdef DEBUG 

f printf ( stderr, "getCollabHostFromIndex( )->smIdTag = %ld, pHost = %ld\n", 
pHost->lSIDTag, pHost); 
#endif /* DEBUG */ 
return pHost; 



/* 

* Function 
*/ 
void 

collabSetCurrHostOprn (pHost , f Force) 
hostData *pHost; 
int fForce; 

{ 

if(!fForce && ( pHostShaCu rrColl != NULL)){ 
return; /*only set if not already set*/ 

} 

pHostShaCurrColl = pHost; 

if (pHostShaCurrColl != NULL){ 

currCollSIdTag = pHostShaCurrColl->lSIDTag; 
#ifdef DEBUG 

fprintf (stderr, "currCollSIdTag = %ld, pHost = %ld\n", 
currCollSIdTag, pHost); 
#endif /* DEBUG */ 
} 

else{ 

collabUnselectOprn(0) ; 

} 

if (currCollSIdTagK 

set Co HabFrontNamesOprn (currCollSIdTag) ; 

} 

/* 

set and update user interface element flags.. sldTagToken, perms, etc etc 
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*/ 

} 

/* 

* Function 
*/ 

void 

collabResetCurrHostOprn(pHost, f Force) 
hostData *pHost; 
int fForce; 

{ 

if(!fForce && ( pHostShaCu rrColl != pHost)){ 
return; /*only set if not already set*/ 

} 

else{ 

collabUnselectOprn(0) ; 

} 

} 

/* 

* Function 
*/ 

void 

collabSelectOprn( i) 

int i; 

{ 

hostData *pHost; 

pHost = getCollabHostFromIndex( i) ; 
collabSetCurrHostOprn(pHost, True) ; 
if (collabSelectFunc != NULL) { 

(*collabSelectFunc) (pHostShaCurrColl) ; 

} 

} 

/* 

* Function 
*/ 

void 

collabUn select Op rn( i) 
int i; 

{ 

pHostShaCurrColl = NULL; 
currCollSIdTag = 0; 

} 

/* 

* Function 
*/ 

void 

collabRenameOprn ( i, iMode) 
int i; 
int iMode; 

{ 
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/*change*/ 
} 

/* 

* Function 
*/ 

void 

collabLeaveOprn ( i) 

int i; 

{ 

hostData *pHost; 

pHost = getCollabHostFromIndex( i) ; 
if (pHost == NULL) { 

collabUt ilPopupMes sage ( "Invalid Session ! \n" ) ; 

return; 

} 

if (collLeaveReq(pHost) == -l){ 

colla but ilPopupMes sage ( "collLeaveReq ( ) Error ! \n" ) ; 
return; 

} 

if (pHost->lSIDTag == currCollSIdTagK 
collabUnselectOprn(0) ; 

} 

} 

/* 

* Function 
*/ 

void 

collabTerminateOprn( i) 
int i; 

{ 

hostData *pHost; 
unsigned long myPerms; 

pHost = getCollabHostFromIndex( i) ; 
if (pHost == NULL) { 

collabUt ilPopupMes sage ( "Invalid Session ! \n" ) ; 

return; 

} 

myPerms = getSesmFrontPerms (&cu rrCollSIdTag , & pFrontSId->lSIDTag) ; 
if (! (myPerms & SHASTRA_PERM_GRANT) ) { 

collabUtilPopupMessage( "No Capability to Terminate ! \n" ) ; 

return; 

} 

if (collTerminateReq(pHost) == -1){ 

collabUtilPopupMessage("collTerminateReq( ) Error!\n") ; 
return; 

} 

if (pHost->lSIDTag == currCollSIdTagK 
collabUnselectOprn(0) ; 

} 
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/* 

* Function 
*/ 
void 

collablnitiateOprn(aiWhich) 
int *aiWhich; 

{ 

shastraldTags *pSIdTags; 
shastraldTag ISIdTag; 
shastraldTag *pSIdTag; 
shaCommCntlData *pCommCD; 
int i; 

pSIdTag = &pFrontSId->lSIDTag; 

pSIdTags = (shastraIdTags*)malloc(sizeof (shastraldTags) ) ; 
memset ( pSIdTags, 0, sizeof ( shast raldTags ) ) ; 
krFrNdxs2SIdTags(aiWhich, pSIdTags) ; 

/* here make sure I myself am the first tag on the list */ 
i = getSIdTagIndexInSIdTags(pSIdTag, pSIdTags); 
if (i == -1) { /* not in this */ 

addSIdTag2SIdTags(pSIdTag, pSIdTags) ; 

i = getSIdTagIndexInSIdTags(pSIdTag, pSIdTags); 

} 

if (i > 0) { /* exchange first with this */ 

pSIdTags->shastraIdTags_val [i] = pSIdTags->shast raIdTags_val [0] ; 
pSIdTags->shastraIdTags_val [0] = pFrontSId->lSIDTag; 

} 

ISIdTag = mplexGetUniqueld ( ) ; 

if (collOptionState. iForceJoinOpt == CollabOpt_FORCEJOIN ) { 

if (collAutoInitiateReq(pHostKernel, pSIdTags, collPermissions, 
ISIdTag) == -1){ 
collabUtilPopupMes sage ("collAutoI nit iateReq( ) Error !\n") ; 
return; 

} 

} 

else{ 

if (collInitiateReq(pHostKernel, pSIdTags, collPermissions, 
ISIdTag) == -1){ 
collabUtilPopupMes sage ( "collInitiateReq ( ) Error !\n" ) ; 
return; 

} 

} 

if (pSIdTags->shastraIdTags_len == 1){ 
return; 

} 

if((pCommCD = getCollabCommData ( ISIdTag, pFrontSId->lSIDTag, 
ShaComm_INITIATE) ) == NULL){ 
pCommCD = ( shaCommCntlData*) malloc ( sizeof ( shaCommCntlData )) ; 
memset(pCommCD, 0, sizeof ( shaCommCntlData )) ; 
pCommCD->locSIdTag = pFrontSId->lSIDTag; 
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pCommCD->remSIdTag = ISIdTag; 
pCommCD->smSIdTag = ISIdTag; 
pCommCD->pSIdTags = pSIdTags; 
pCommCD->f ShowList = True; 
pCommCD->iCommMode = ShaComm_INVITE; 
setupCollablnviteCommDialog (pCommCD) ; 
setCollabCommData ( ISIdTag , pFrontSId->lSIDTag, 
ShaComm_INITIATE, pCommCD ) ; 

} 

defau It Dialog Popup ( pCommCD->pDialogCD) ; 

} 

void 

collabDeletelnvitePanelOprn ( smSIdTag ) 
shastraldTag smSIdTag; 

{ 

shaCommCntlData *pCommCD; 

pCommCD = getCollabCommData ( smSIdTag , pFrontSId->lSIDTag, 

ShaComm_INVITE) ; 
if ( pCommCD != NULL){ 

f reeCollabCommData( smSIdTag, pFrontSId->lSIDTag , ShaComm_INVITE) ; 

f ree( pCommCD) ; 

} 



/* 

* Function 
*/ 
void 

collabSetLeaderOprn(sIdTag, smSIdTag, lldTag) 
shastraldTag sldTag; 
shastraldTag smSIdTag; 
unsigned long lldTag; 

{ 

shaCommCntlData *pCommCD; 

if(sIdTag != pFrontSId->lSIDTag ) { 

fprintf ( stderr, "collabSetLeaderOprn ( )-> not for me!!\n"); 

} 

if (lldTag == 0){ 

return; /*nothing needs to happen*/ 

} 

pCommCD = getCollabCommData ( lldTag , sldTag, ShaComm_INITIATE) ; 
if(pCommCD != NULL){ 

f reeCollabCommDatadldTag, sldTag, ShaComm_INITIATE) ; 

pCommCD->smSIdTag = smSIdTag; 

pCommCD->remSIdTag = smSIdTag; 

setCollabCommData ( smSIdTag, sldTag, ShaComm_INVITE, pCommCD); 

shast raCommAppendText ( pCommCD, "\nThis Front is the Group Leader!\n"); 

} 

else{ 

collabUtilPopupMessage( "This Front is the Group Leader!\n"); 
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} 

setCollabF ront Perms Op rn ( smSIdTag) ; 

} 

/* 

* Function 
*/ 
void 

collablnviteOprn(aiWhich) 
int *aiWhich; 

{ 

int i, n; 

shastraldTags *pSIdTags; 
shastrald *pSesmSId; 
shaCommCntlData *pCommCD; 
unsigned long myPerms; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if (pSesmSId == NULL){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

myPerms = getSesmFrontPerms (&cu rrCollSIdTag , & pFrontSId->lSIDTag) ; 
if (! (myPerms & SHASTRA_PERM_GRANT) ) { 

collabUtilPopupMessage( "No Capability to Invite!\n"); 

return; 

} 

pSIdTags = (shastraIdTags*)malloc(sizeof (shastraldTags) ) ; 
memset ( pSIdTags, 0, sizeof ( shast raldTags ) ) ; 
krFrNdxs2SIdTags(aiWhich, pSIdTags) ; 

if (pSIdTags->shastraIdTags_len == 0){ 
f ree(pSIdTags) ; 
return; 

} 

if (collOptionState. iForceJoinOpt == CollabOpt_FORCEJOIN ) { } 
else{ } 

for(i=0, n = 0;i <pSIdTags->shast raIdTags_len; i++) { 

if ( ! front Is InCollSess ion (pSIdTags->shastraIdTags_val [i] , 
currCollSIdTag) ){ 

n++; 

if ( collInviteJoinReq( pHostKernel, &currCollSIdTag, 
&pSIdTags->shastraIdTags_val [i] , 
&pFrontSId->lSIDTag, 

(shastraIdTag*)&collPermissions) == -1){ 
colla but ilPopupMes sage ( "colli nvite J oinReq 0 Error ! \n" ) ; 
return; 
} 

} 

else{ 

collabUtilPopupMessageC'System Already In Session ! \n" ) ; 
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} 

} 

if(n == 0){ 
return; 

} 

if ( ( pCommCD = getCollabCommData ( cu r rCollSIdTag , pFrontSId->lSIDTag, 
ShaComm_INVITE) ) == NULL){ 
pCommCD = ( shaCommCntlData*) malloc ( sizeof ( shaCommCntlData ) ) ; 
memset(pCommCD, 0, sizeof ( shaCommCntlData )) ; 
pCommCD->locSIdTag = pFrontSId->lSIDTag; 
pCommCD->remSIdTag = cu rrCollSIdTag ; 
pCommCD->smSIdTag = currCollSIdTag; 
pCommCD->pSIdTags = pSIdTags; 
pCommCD->f ShowList = True; 
pCommCD->iCommMode = ShaComm_INVITE; 
setupCollablnviteCommDialog (pCommCD) ; 
setCollabCommData( currCollSIdTag, pFrontSId->lSIDTag, 
ShaComm_INVITE, pCommCD); 

} 

defau It Dialog Popup ( pCommCD->pDialogCD) ; 



/* 

* Function 
*/ 
void 

collabSetInviteStatusOprn(smSIdTag, toSIdTag, IStatus) 
shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
unsigned long IStatus; 

{ 

shastrald *pSesmSId; 
shastrald *pRemSId; 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if(pSesmSId == NULL){ 

collabUtilPopupMessage( "Invalid Inviter Session ! \n" ) ; 

return; 

} 

pRemSId = krFrSIdTag2SId(toSIdTag) ; 
if(pRemSId == NULL){ 

collabUtilPopupMessage( "Invalid Inviter Session Leader!\n"); 

return; 

} 

if (collInviteStatusReq(pHostKernel, &smSIdTag, &toSIdTag, 
&pFrontSId->lSIDTag, 
IStatus) == -1){ 
colla but ilPopupMes sage (" colli nvit eSt at usReq( ) Error ! \n" ) ; 
return; 

} 



/* 
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* Function 
*/ 
void 

collabJoinOprn( smSIdTag, permTag) 
shastraldTag smSIdTag; 
shastraldTag permTag; 

{ 

shastrald *pSId; 
shastraldTag *pSIdTag; 
shaCmdData *pCmdData = NULL; 

pSIdTag = & pFrontSId->lSIDTag ; 

pSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if (pSId == NULL){ 

collabUt ilPopupMes sage ( "Invalid Session ! \n" ) ; 

return; 

} 

if (f rontIsInCollSession(*pSIdTag, smSIdTag)) { 
collabUtilPopupMessage( "Already In Session ! \n" ) ; 
return; 

} 

/* disallow multiple connexns to same sesMgr */ 
if (collabCont rolDataFunc) { 

(*collabCont rolDataFunc) ( shast raNameToService(pSId->nmApplicn) , & 

pCmdData) ; 
if(pCmdData == NULL){ 

collabUtilPopupMessageC'Invalid Control Data!\n"); 
return; 

} 

} 

else{ 

collabUtilPopupMessage( "Can 1 1 Obtain Control Data!\n"); 
return; 

} 

if (collJoinReq( ( hostData*)NULL, pSId, &permTag, pCmdData) ==-i){ 
colla but ilPopupMes sage ( "collJoinReq 0 Error ! \n" ) ; 
return; 

} 



void 

collabInviteAcceptOprn( smSIdTag, IdrSIdTag) 
shastraldTag smSIdTag; 
shastraldTag IdrSIdTag; 

{ 

unsigned long IStatus = 1; 
shaCommCntlData *pCommCD; 

pCommCD = getCollabCommData ( smSIdTag , IdrSIdTag, ShaComm_INVRESP) ; 
if(pCommCD != NULL){ 

collabSetInviteStatusOprn(smSIdTag, IdrSIdTag, IStatus); 

collabJoinOprn(smSIdTag, pCommCD->lPerms ) ; 

f reeCollabCommData(smSIdTag, IdrSIdTag, ShaComm_INVRESP) ; 
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f ree( pCommCD) ; 

} 

else{ 

collabJoinOprn(smSIdTag, 0xff); 

} 



void 

collabInviteDeclineOprn( smSIdTag, IdrSIdTag) 
shastraldTag smSIdTag; 
shastraldTag IdrSIdTag; 

{ 

unsigned long IStatus = 0; 
shaCommCntlData *pCommCD; 

pCommCD = getCollabCommData ( smSIdTag , IdrSIdTag, ShaComm_INVRESP) ; 
if ( pCommCD != NULL){ 

collabSetInviteStatusOprn(smSIdTag, IdrSIdTag, IStatus); 

f reeCollabCommData( smSIdTag, IdrSIdTag, ShaComm_INVRESP) ; 

f ree( pCommCD) ; 

} 

} 

/* 

* Function 
*/ 
void 

collabInvitePromptOprn(smSIdTag, leaderSIdTag , frontPerms) 
shastraldTag smSIdTag, leaderSIdTag; 
unsigned long frontPerms; 

{ 

shastraldTags *pSIdTags; 
shastrald *pSesmSId, *pRemSId; 
shaCommCntlData *pCommCD; 
unsigned long IRespStatus; 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if(pSesmSId == NULL){ 

collabUtilPopupMessage( "Invalid Invite Session ! \n" ) ; 

return; 

} 

pRemSId = krFrSIdTag2SId ( leaderSIdTag ) ; 
if(pRemSId == NULL){ 

collabUtilPopupMessage( "Invalid Session Leader!\n"); 

return; 

} 

if (f rontIsInCollSession(pFrontSId->lSIDTag, smSIdTag) ){ 
collabUtilPopupMessage( "System Already In Session ! \n" ) ; 
return; 

} 

pSIdTags = getSesmFrontSIdTags(&smSIdTag) ; 
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switch ( collOptionSt ate. ilnviteOpt ) { 
case CollabOpt_ACCEPT: 

collabUtilPopupMessage( "Automatically Accepted Session Invitation ! \n" ) ; 

IRespStatus = 1; 

if (collInviteStatusReq(pHostKernel, &smSIdTag, &leaderSIdTag, 
&pFrontSId->lSIDTag, IRespStatus) == -1){ 
collabUtilPopupMessage("collInviteStatusReq( ) Error ! \n" ) ; 
return; 

} 

collabJoinOprn ( smSIdTag , f rontPerms ) ; 

return; 

break; 

case CollabOpt_DECLINE: 

collabUtilPopupMessage( "Automatically Declined Session Invitation ! \n" ) ; 
IRespStatus = 0; 

if (collInviteStatusReq(pHostKernel, &smSIdTag, &leaderSIdTag, 
&pFrontSId->lSIDTag, IRespStatus) == -1){ 
collabUtilPopupMessage("collInviteStatusReq( ) Error !\n") ; 
return; 

} 

return; 
break; 
default: 
break; 

} 

if((pCommCD = getCollabCommData ( smSIdTag, leaderSIdTag, ShaComm_INVRESP) ) 
== NULL){ 

pCommCD = ( shaCommCntlData*) malloc ( sizeof ( shaCommCntlData ) ) ; 
memset(pCommCD, 0, sizeof ( shaCommCntlData )) ; 
pCommCD->locSIdTag = pFrontSId->lSIDTag; 
pCommCD->remSIdTag = leaderSIdTag; 
pCommCD->smSIdTag = smSIdTag; 
pCommCD->lPerms = frontPerms; 
pCommCD->pSIdTags = pSIdTags; 
pCommCD->f ShowList = True; 
pCommCD->iCommMode = ShaComm_INVRESP; 
setupCollablnvRespCommDialog ( pCommCD) ; 

setCollabCommData ( smSIdTag, leaderSIdTag, ShaComm_INVRESP, pCommCD); 

} 

/*got another invite for same conference., ignore??*/ 
defau It Dialog Popup ( pCommCD->pDialogCD) ; 



/* 

* Function 
*/ 
void 

collabShowInviteStatusOprn( smSIdTag, toSIdTag, sldTag, IStatus) 
shastraldTag smSIdTag, toSIdTag, sldTag; 
unsigned long IStatus; 

{ 

char msgBuf [256] ; 
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char *sName; 

shaCommCntlData *pCommCD; 

sName = mapSIdTag2Str(&sIdTag, PSIDNMHOST | PSIDNMAPPL | PSIDNMUSER) ; 
if (IStatusH 

sprintf (msgBuf , " (%s)\n has accepted invitation\n" , sName); 

} 

else{ 

sprintf (msgBuf ," (%s ) \n has declined invitation\n" , sName); 

} 

f ree( sName) ; 

if ( ( pCommCD = getCollabCommData ( smSIdTag, toSIdTag, ShaComm_INVITE) ) 
!= NULL){ 

shast raCommAppendText ( pCommCD, msgBuf) ; 

} 

else{ 

collabUtilPopupMessage(msgBuf ) ; 

} 



void 

collabSendlnviteMessageOprn ( smSIdTag, pToSIdTags, msg) 
shastraldTag smSIdTag; 
shastraldTags *pToSIdTags; 
char *msg; 

{ 

shastraldTag toSIdTag; 
shastrald *pSesmSId; 
int i; 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if(pSesmSId == NULL){ 

/*unique-id not yet clobbered*/ 

collabUtilPopupMessage( "Session not Started.. Please Retry!\n"); 
return; 

} 

if ( (pToSIdTags == NULL) || ( pToSIdTags->shast raIdTags_len == 0)){ 
collabUtilPopupMessage( "Null Recipients for Invite Message ! \n" ) ; 
return; 

} 

for(i=0; i< pToSIdTags->shast raIdTags_len; i++) { 
toSIdTag = pToSIdTags->shastraIdTags_val [i] ; 
if(toSIdTag != pFrontSId->lSIDTag){ 

if (collInviteMsgReq(pHostKernel, &smSIdTag, &toSIdTag, 
&pFrontSId->lSIDTag, msg) == -1){ 
collabUtilPopupMessage("collInviteMsgReq( ) Error!\n") ; 
return; 
} 

} 

} 

} 
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void 

collabSendUniInviteMessageOprn(smSIdTag, toSIdTag, msg) 
shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
char *msg; 

{ 

shastrald *pSesmSId; 
int i; 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if (pSesmSId == NULL){ 

/*unique-id not yet clobbered*/ 

collabUtilPopupMessage( "Session not Started.. Please Retry!\n"); 
return; 

} 

if(toSIdTag != pFrontSId->lSIDTag ) { 

if (collInviteMsgReq(pHostKernel, &smSIdTag, &toSIdTag, 
&pFrontSId->lSIDTag, msg) == -1){ 
collabUtilPopupMessage("collInviteMsgReq( ) Error ! \n" ) ; 
return; 

} 

} 

} 

void 

collabRecvdInviteMessageOprn(smSIdTag, f romSIdTag, msg) 
shastraldTag smSIdTag; 
shastraldTag fromSIdTag; 
char *msg; 

{ 

shaCommCntlData *pCommCD; 

if((pCommCD = getCollabCommData ( smSIdTag, fromSIdTag, ShaComm_INVRESP) ) 
!= NULL){ 

/*should've been prompted, so if no panel, commited*/ 
shast raCommDisplayText ( pCommCD, msg) ; 

} 

} 

void 

collabSendInvRespMessageOprn(smSIdTag, toSIdTag, msg) 
shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
char *msg; 

{ 

shastrald *pSesmSId; 
shastrald *pRemSId; 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if(pSesmSId == NULL){ 

collabUtilPopupMessage( "Invalid Inviter Session ! \n" ) ; 

return; 

} 
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pRemSId = krFrSIdTag2SId(toSIdTag) ; 
if(pRemSId == NULL){ 

collabUtilPopupMessage( "Invalid Inviter Session Leader!\n"); 

return; 

} 

if (collInvRespMsgReq(pHostKernel, &smSIdTag, &toSIdTag, 
&pFrontSId->lSIDTag, msg) == -1){ 
colla but ilPopupMes sage ( "colli nvRespMsgReq 0 Error ! \n" ) ; 
return; 

} 

} 

void 

collabRecvdInvRespMessageOprn(smSIdTag, f romSIdTag, msg) 
shastraldTag smSIdTag; 
shastraldTag f romSIdTag; 
char *msg; 

{ 

shaCommCntlData *pCommCD; 

/*many such messages may come from the invitees FIX*/ 
if((pCommCD = getCollabCommData ( smSIdTag , pFrontSId->lSIDTag, 
ShaComm_INVITE) ) !=NULL){ 

/*also check if i'm in the SIdTag list, else ignore*/ 

shastraCommAppendText(pCommCD, msg) ; 

} 

#ifdef WANTSEPARATEPANELS 

if((pCommCD = getCollabCommData ( smSIdTag, f romSIdTag, ShaComm_UNIINVRESP) 
) 

== NULL){ 

pCommCD = ( shaCommCntlData*) malloc ( sizeof ( shaCommCntlData ) ) ; 
memset(pCommCD, 0, sizeof ( shaCommCntlData )) ; 
pCommCD->locSIdTag = pFrontSId->lSIDTag; 
pCommCD->remSIdTag = fromSIdTag; 
pCommCD->smSIdTag = smSIdTag; 
pCommCD->iCommMode = ShaComm_UNIINVRESP; 
setupCollablnviteCommDialog ( pCommCD) ; 

setCollabCommData(smSIdTag, fromSIdTag, ShaComm_UNIINVRESP, pCommCD); 

} 

shastraCommDisplayText(pCommCD, msg) ; 
#endif /* WANTSEPARATEPANELS */ 



/* 

* Function 
*/ 
void 

collabAskJoinOprn( i) 
int i; 

{ 

shastraldTag smSIdTag; 
shaCommCntlData *pCommCD; 
shastrald *pSesmSId; 
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if ((i < 0) || (i >= shastraSesmlds. shastralds_len) ){ 
return; 

} 

smSIdTag = shast raSesmlds . shast ralds_val [i] ->lSIDTag ; 
if (f rontIsInCollSession(pFrontSId->lSIDTag, smSIdTag) ){ 

collabUtilPopupMessage( "System Already In Session ! \n" ) ; 

return; 

} 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if (pSesmSId == NULL){ 

collabUtilPopupMessage( "Invalid Ask-Join Session ! \n" ) ; 

return; 

} 

if (collAskJoinReq(pHost Kernel, &smSIdTag, 
&pFrontSId->lSIDTag) == -1){ 
colla but ilPopupMes sage ( "collAskJoinReq ( ) Error ! \n" ) ; 
return; 

} 

if ( ( pCommCD = getCollabCommData ( smSIdTag, pFrontSId->lSIDTag, 
ShaComm_ASKJOIN) ) == NULL){ 
pCommCD = ( shaCommCntlData*) malloc ( sizeof ( shaCommCntlData ) ) ; 
memset ( pCommCD, 0, sizeof ( shaCommCntlData )) ; 
pCommCD->locSIdTag = pFrontSId->lSIDTag; 
pCommCD->remSIdTag = smSIdTag; 
pCommCD->smSIdTag = smSIdTag; 
pCommCD->iCommMode = ShaComm_ASKJOIN; 
setupCollabAskJoinCommDialog ( pCommCD) ; 
setCollabCommData( smSIdTag, pFrontSId->lSIDTag, 
ShaComm_ASKJOIN, pCommCD) ; 

} 

defau It Dialog Popup ( pCommCD->pDialogCD) ; 



void 

collabDeleteAskJoinPanelOprn ( smSIdTag ) 
shastraldTag smSIdTag; 

{ 

shaCommCntlData *pCommCD; 

pCommCD = getCollabCommData ( smSIdTag , pFrontSId->lSIDTag, 

ShaComm_ASKJOIN) ; 
if(pCommCD != NULL){ 

f reeCollabCommData(smSIdTag, pFrontSId->lSIDTag , ShaComm_ASKJOIN) ; 

f ree( pCommCD) ; 

} 



/* 

* Function 

*/ 
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void 

collabTellJoinOprn( smSIdTag, sldTag) 
shastraldTag smSIdTag; 
shastraldTag sldTag; 

{ 

if (frontIsInCollSession( sldTag, smSIdTag)) { 

collabUtilPopupMessage( "Already in this Session ! \n" ) ; 
return; 

} 

if (collTellJoinReq(pHostKernel, &smSIdTag, &sIdTag, 

(shastraldTag *) & collPermissions ) == -1){ 
colla but ilPopupMes sage ( "collTellJoinReq ( ) Error !\n") ; 
return; 

} 

} 

/* 

* Function 
*/ 
void 

collabAskJoinPromptOprn( smSIdTag, f romSIdTag) 
shastraldTag smSIdTag, fromSIdTag; 

{ 

shastraldTags *pSIdTags; 
shastrald *pSesmSId, *pRemSId; 
shaCommCntlData *pCommCD; 
unsigned long IRespStatus; 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if(pSesmSId == NULL){ 

collabUtilPopupMessage( "Invalid Ask-Join Session ! \n" ) ; 

return; 

} 

pRemSId = krFrSIdTag2SId(f romSIdTag) ; 
if(pRemSId == NULL){ 

collabUtilPopupMessage( "Invalid Join Requestor ! \n" ) ; 

return; 

} 

if (frontIsInCollSession(f romSIdTag, smSIdTag) ){ 

collabUtilPopupMessage( "Requestor Already in Session ! \n" ) ; 
return; 

} 

pSIdTags = getSesmFrontSIdTags(&smSIdTag) ; 

switch ( collOptionSt ate. iAskJoinOpt ) { 
case CollabOpt_ALLOW: 

collabUtilPopupMessage( "Automatically Allowed Session Join!\n"); 

IRespStatus = 1; 

if (collAskJnStatusReq(pHostKernel, &smSIdTag, &fromSIdTag, 
&pFrontSId->lSIDTag, IRespStatus) == -1){ 
collabUtilPopupMessage("collAskJnStatusReq( ) Error ! \n" ) ; 
return; 
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} 

collabTellJoinOprn(smSIdTag, f romSIdTag) ; 
return; 
break; 
case CollabOpt_DENY: 

collabUtilPopupMessage( "Automatically Denied Session Join!\n"); 
IRespStatus = 0; 

if (collAskJnStatusReq(pHostKernel, &smSIdTag, &f romSIdTag, 
&pFrontSId->lSIDTag, IRespStatus) == -1){ 
collabUtilPopupMessage("collAskJnStatusReq( ) Error ! \n" ) ; 
return; 

} 

return; 
break; 
default: 
break; 

} 

if((pCommCD = getCollabCommData ( smSIdTag, f romSIdTag, ShaComm_ASKJNRESP) ) 
== NULL){ 

pCommCD = ( shaCommCntlData*) malloc ( sizeof ( shaCommCntlData ) ) ; 
memset ( pCommCD, 0, sizeof ( shaCommCntlData )) ; 
pCommCD->locSIdTag = pFrontSId->lSIDTag; 
pCommCD->remSIdTag = fromSIdTag; 
pCommCD->smSIdTag = smSIdTag; 
pCommCD->iCommMode = ShaComm_ASKJNRESP; 
setupCollabAskJnRespCommDialog (pCommCD) ; 

setCollabCommData(smSIdTag, fromSIdTag, ShaComm_ASKJNRESP, pCommCD); 

} 

/*got another askjoin from same tool for same conference., ignore??*/ 
defau It Dialog Popup ( pCommCD->pDialogCD) ; 



/* 

* Function 
*/ 
void 

collabSetAskJoinStatusOprn( smSIdTag, toSIdTag, IStatus) 
shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
unsigned long IStatus; 

{ 

shastrald *pSesmSId; 
shastrald *pRemSId; 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if(pSesmSId == NULL){ 

collabUtilPopupMessage( "Invalid Join Session ! \n" ) ; 

return; 

} 

pRemSId = krFrSIdTag2SId(toSIdTag) ; 
if(pRemSId == NULL){ 

collabUtilPopupMessage( "Invalid Join Requester ! \n" ) ; 



Page 20 of 38 



collabCntl.c 



7/5/11 11:51 AM 



return; 

} 

if (collAskJnStatusReq(pHostKernel, &smSIdTag, &toSIdTag, 
&pFrontSId->lSIDTag, IStatus) == -1){ 
collabUtilPopupMessage("collAskJnStatusReq( ) Error ! \n" ) ; 
return; 

} 



void 

collabAskJoinAllowOprn ( smSIdTag, toSIdTag ) 
shastraldTag smSIdTag; 
shastraldTag toSIdTag; 

{ 

unsigned long IStatus = 1; 
shaCommCntlData *pCommCD; 

pCommCD = getCollabCommData ( smSIdTag , toSIdTag, ShaComm_ASKJNRESP) ; 
if ( pCommCD != NULL){ 

collabSetAskJoinStatusOprn(smSIdTag, toSIdTag, IStatus); 

f reeCollabCommData( smSIdTag, toSIdTag, ShaComm_ASKJNRESP) ; 

f ree( pCommCD) ; 

} 

collabTellJoinOprn( smSIdTag, toSIdTag) ; 



void 

collabAskJoinDenyOprn ( smSIdTag, toSIdTag) 
shastraldTag smSIdTag; 
shastraldTag toSIdTag; 

{ 

unsigned long IStatus = 0; 
shaCommCntlData *pCommCD; 

pCommCD = getCollabCommData ( smSIdTag , toSIdTag, ShaComm_ASKJNRESP) ; 
if(pCommCD != NULL){ 

collabSetAskJoinStatusOprn(smSIdTag, toSIdTag, IStatus); 

f reeCollabCommData(smSIdTag, toSIdTag, ShaComm_ASKJNRESP) ; 

f ree( pCommCD) ; 

} 

} 

/* 

* Function 
*/ 
void 

collabShowAskJoinStatusOprn ( smSIdTag, toSIdTag, sldTag, IStatus) 
shastraldTag smSIdTag, toSIdTag, sldTag; 
unsigned long IStatus; 

{ 

char msgBuf [256] ; 
char *sName; 

shaCommCntlData *pCommCD; 
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sName = mapSIdTag2Str(&sIdTag, PSIDNMHOST | PSIDNMAPPL | PSIDNMUSER) ; 
if (lStatus){ 

sprintf (msgBuf , " (%s)\n has allowed participation\n" , sName) ; 

} 

else{ 

sprintf (msgBuf ," (%s)\n has denied participation\n" , sName); 

} 

f ree( sName) ; 

if ( ( pCommCD = getCollabCommData ( smSIdTag , pFrontSId->lSIDTag, 
ShaComm_ASKJOIN) ) != NULL){ 
shast raCommAppendText ( pCommCD, msgBuf) ; 

} 

else{ 

collabUtilPopupMessage(msgBuf ) ; 

} 



void 

collabSendAskJoinMessageOprn( smSIdTag, msg) 
shastraldTag smSIdTag; 
char *msg; 

{ 

shastrald *pSesmSId; 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if(pSesmSId == NULL){ 

collabUtilPopupMessage( "Invalid Join Session ! \n" ) ; 

return; 

} 

if (collAskJoinMsgReq(pHostKernel, &smSIdTag, 

&pFrontSId->lSIDTag, msg) == -1){ 
colla but ilPopupMes sage ( "collAskJoinMsgReq 0 Error ! \n" ) ; 
return; 

} 

} 

void 

collabRecvdAskJoinMessageOprn(smSIdTag, fromSIdTag, msg) 
shastraldTag smSIdTag; 
shastraldTag fromSIdTag; 
char *msg; 

{ 

shaCommCntlData *pCommCD; 

if((pCommCD = getCollabCommData ( smSIdTag, fromSIdTag, ShaComm_ASKJNRESP) ) 
!= NULL){ 

/*should've been prompted, so if no panel, commited*/ 
shast raCommDisplayText ( pCommCD, msg) ; 

} 

else if (fromSIdTag == pFrontSId->lSIDTag ) { /*joined empty collab*/ 
pCommCD = getCollabCommData ( smSIdTag , fromSIdTag, ShaComm_ASKJOIN ) ; 
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if (pCommCD != NULL){ 

shast raCommDisplayText ( pCommCD, msg) ; 
/*should we terminate*/ 
} 

else{ 

collabUtilPopupMessageC'You 1 re the Session Leader ! \n" ) ; 

} 

} 

} 

void 

collabSendAskJnRespMessageOprn(smSIdTag, toSIdTag, msg) 
shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
char *msg; 

{ 

shastrald *pSesmSId; 
shastrald *pRemSId; 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if(pSesmSId == NULL){ 

collabUtilPopupMessage( "Invalid Join Session ! \n" ) ; 

return; 

} 

pRemSId = krFrSIdTag2SId(toSIdTag) ; 
if(pRemSId == NULL){ 

collabUtilPopupMessage( "Invalid Requestor for Join!\n"); 

return; 

} 

if (collAskJnRespMsgReq(pHostKernel, &smSIdTag, &toSIdTag, 
&pFrontSId->lSIDTag, msg) == -1){ 
colla but ilPopupMes sage ( "collAskJnRespMsgReq ( ) Error ! \n" ) ; 
return; 

} 



void 

collabRecvdAskJnRespMessageOprn(smSIdTag, fromSIdTag, msg) 
shastraldTag smSIdTag; 
shastraldTag fromSIdTag; 
char *msg; 

{ 

shaCommCntlData *pCommCD; 

if((pCommCD = getCollabCommData ( smSIdTag, pFrontSId->lSIDTag, 
ShaComm_ASKJOIN) ) != NULL){ 
shast raCommDisplayText ( pCommCD, msg) ; 

} 

} 

/* 

* Function 

*/ 
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void 

collabRemoveOprn( i) 
int i; 

{ 

shastrald *pSesmSId; 
shastraldTag *pSIdTag; 
shastraldTags *pSIdTags; 
unsigned long myPerms; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if ( (pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

myPerms = getSesmFrontPerms (&cu rrCollSIdTag , & pFrontSId->lSIDTag) ; 
if (! (myPerms & SHASTRA_PERM_GRANT) ) { 

collabUtilPopupMessage( "No Capability to Remove!\n"); 

return; 

} 

pSIdTags = getSesmFrontSIdTags(&currCollSIdTag) ; 

if ((i < 0) || (i >= pSIdTags->shastraIdTags_len) ) { 

collabUtilPopupMessage( "System not in Current Session ! \n" ) ; 

return; 

} 

pSIdTag = &pSIdTags->shast raIdTags_val [i] ; 

if (collRemoveReq(pHostShaCurrColl, pSIdTag) == -1){ 
colla but ilPopupMes sage ( "collRemoveReq ( ) Error ! \n" ) ; 
return; 

} 

} 

/* 

* Function 
*/ 
void 

collabCommConnectOprn ( i) 
int i; 

{ 

shastrald *pSesmSId; 
shastrald *pRemSId; 
shastraldTag ISIdTag; 
shastraldTags *pSIdTags; 
shaCommCntlData *pCommCD; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if((pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

pSIdTags = getSesmFrontSIdTags(&currCollSIdTag) ; 

if ((i < 0) || (i >= pSIdTags->shastraIdTags_len) ) { 

collabUtilPopupMessage( "System not in Current Session ! \n" ) ; 
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return; 

} 

ISIdTag = pSIdTags->shast raIdTags_val [i] ; 

ifUSIdTag == pFrontSId->lSIDTag ) { 
/*wasteful, so disallow*/ 

} 

if ( ( pCommCD = getCollabCommData(currCollSIdTag, ISIdTag, ShaComm_COLLAB) ) 
== NULL){ 
pRemSId = krFrSIdTag2SId ( ISIdTag ) ; 
if(pRemSId == NULL){ 

collabUtilPopupMessageC'Couldn 't Locate Remote System ! \n" ) ; 
return; 

} 

pCommCD = ( shaCommCntlData*) malloc ( sizeof ( shaCommCntlData ) ) ; 
memset(pCommCD, 0, sizeof ( shaCommCntlData )) ; 
pCommCD->locSIdTag = pFrontSId->lSIDTag; 
pCommCD->remSIdTag = ISIdTag; 
pCommCD->smSIdTag = currCollSIdTag; 
pCommCD->iCommMode = ShaComm_COLLAB; 
setupCollabCommDialog(pCommCD) ; 

setCollabCommData(currCollSIdTag, ISIdTag, ShaComm_COLLAB, pCommCD); 
collabCommSendMessageOprn(currCollSIdTag, pRemSId->lSIDTag, "") ; 
/*force remote popup*/ 

} 

defau It Dialog Popup ( pCommCD->pDialogCD) ; 



collabCommSendMessageOprn(smSIdTag, ISIdTag, msg) 
shastraldTag smSIdTag; 
shastraldTag ISIdTag; 
char *msg; 

{ 

if (collCommMsgTextReq(pHostShaCurrColl, &smSIdTag, &lSIdTag, 
&pFrontSId->lSIDTag, msg) == -1){ 
collabUtilPopupMessage("collCommMsgTextReq( ) Error!\n") ; 
return; 

} 

} 

void 

collabCommRecvdMessageOprn( smSIdTag, ISIdTag, msg) 
shastraldTag smSIdTag; 
shastraldTag ISIdTag; 
char *msg; 

{ 

shastrald *pSesmSId; 
shastrald *pRemSId; 
shaCommCntlData *pCommCD; 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if(pSesmSId == NULL){ 
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return; 

} 

if ( ( pCommCD = getCollabCommData ( smSIdTag, ISIdTag, ShaComm_COLLAB) ) 
== NULL){ 
pRemSId = krFrSIdTag2SId ( ISIdTag ) ; 
if(pRemSId == NULL){ 

collabUtilPopupMessageC'Couldn 't Locate Remote System ! \n" ) ; 
return; 

} 

pCommCD = ( shaCommCntlData*) malloc ( sizeof ( shaCommCntlData ) ) ; 
memset ( pCommCD, 0, sizeof ( shaCommCntlData )) ; 
pCommCD->locSIdTag = pFrontSId->lSIDTag; 
pCommCD->remSIdTag = ISIdTag; 
pCommCD->smSIdTag = smSIdTag; 
pCommCD->iCommMode = ShaComm_COLLAB; 
setupCollabCommDialog(pCommCD) ; 

setCollabCommData(smSIdTag, ISIdTag, ShaComm_COLLAB, pCommCD); 

} 

shastraCommDisplayText(pCommCD, msg) ; 



void 

collabCommDis connect Op rn ( smSIdTag , remSIdTag ) 
shastraldTag smSIdTag; 
shastraldTag remSIdTag; 

{ 

shaCommCntlData *pCommCD; 

pCommCD = getCollabCommData ( smSIdTag , remSIdTag, ShaComm_COLLAB) ; 
if(pCommCD != NULL){ 

f reeCollabCommData(smSIdTag, remSIdTag, ShaComm_COLLAB) ; 

f ree( pCommCD) ; 

} 



void 

collabOperationsOprn( pMgrCD, f Up) 
mgrCntlData *pMgrCD; 
int fUp; 

{ 

if (pHostShaCurrColl == NULL){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 
return; 

} 

if (collabOperatorFunc != NULL) { 

(*collabOperatorFunc) ( pHostShaCurrColl) ; 

} 

} 

/* 

* Function 

*/ 
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collabSetPermOprn(iPerm, fSet) 
CollabPermission iPerm; 
int fSet; 

{ 

switch ( iPerm) { 
case CollabPerm_ACCESS: 
if (fSet){ 

collPermissions |= SHASTRA_PERM_ACCESS; 

} 

else{ 

collPermissions &= ~SHASTRA_PERM_ACCESS; 

} 

break; 

case CollabPerm_BROWSE: 
if (fSet){ 

collPermissions |= SHASTRA_PERM_BROWSE; 

} 

else{ 

collPermissions &= ~SHASTRA_PERM_BROWSE ; 

} 

break; 

case CollabPerm_MODIFY: 
if (fSet){ 

collPermissions |= SHASTRA_PERM_MODI FY ; 

} 

else{ 

collPermissions &= ~SHASTRA_PERM_MODI FY ; 

} 

break; 
case CollabPerm_GRANT: 
if (fSet){ 

collPermissions |= SHASTRA_PERM_GRANT; 

} 

else{ 

collPermissions &= ~SHASTRA_PERM_GRANT ; 

} 

break; 
case CollabPerm_COPY: 
if (fSet){ 

collPermissions |= SHASTRA_PERM_COPY; 

} 

else{ 

collPermissions &= ~SHASTRA_PERM_COPY; 

} 

break; 

} 

} 

/* 

* Function 
*/ 
void 
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collabSetlxnModeOprn ( iMode) 
CollablxnMode iMode; 

{ 

shastrald *pSesmSId; 
unsigned long myPerms; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if ( (pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

myPerms = getSesmFrontPerms (&cu rrCollSIdTag , & pFrontSId->lSIDTag) ; 
if (! (myPerms & SHASTRA_PERM_GRANT) ) { 

collabUtilPopupMessage( "No Capability to Set Mode!\n"); 

return; 

} 

if (iMode == CollabIxn_REGULATED) { 
collIxnMode = SHASTRA_MODE_REGUL; 

} 

else{ 

collIxnMode = SHASTRA_MODE_UNREG; 

} 

if (collSetIxnModeReq(pHostShaCurrColl, collIxnMode) == -1){ 
colla but ilPopupMes sage ( "collSetlxnModeReq 0 Error ! \n" ) ; 
return; 

} 



/* 

* Function 
*/ 
void 

collabPermSetOprn(aiWhich) 
int *aiWhich; 

{ 

shastrald *pSesmSId; 
shastraldTag *pSIdTag; 
shastraldTags *pSIdTags; 
int i; 

unsigned long myPerms; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if((pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

myPerms = getSesmFrontPerms (&cu rrCollSIdTag , & pFrontSId->lSIDTag) ; 
if (! (myPerms & SHASTRA_PERM_GRANT) ) { 

collabUtilPopupMessage( "No Capability to Set Permissions ! \n" ) ; 

return; 

} 

pSIdTags = getSesmFrontSIdTags(&currCollSIdTag) ; 
for(i = 0; i < pSIdTags->shast raIdTags_len; i++){ 
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if (aiWhichfi] ){ 

pSIdTag = &pSIdTags->shast raIdTags_val [i] ; 

if (collSetPermsReq(pHostShaCurrColl, pSIdTag, 
collPermissions) == -1){ 
colla but ilPopupMes sage ( "collSetPermsReq ( ) Error ! \n" ) ; 
return; 

} 

} 

} 

} 

/* 

* Function 
*/ 

void 

collabPermCheckOprn( iWhich) 
int iWhich; 

{ 

shastrald *pSesmSId; 
shastraldTag *pSIdTag; 
shastraldTags *pSIdTags; 
unsigned long perms; 
char msgBuf [256] , *sName, *sPerms; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if ( (pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

pSIdTags = getSesmFrontSIdTags(&currCollSIdTag) ; 

if ((iWhich < 0) | | (iWhich >= pSIdTags->shastraIdTags_len) ) { 

collabUtilPopupMessage( "System not in Current Session ! \n" ) ; 

return; 

} 

pSIdTag = &pSIdTags->shast raIdTags_val [iWhich] ; 
perms = getSesmFrontPerms (&currCollSIdTag, pSIdTag); 

sName = mapSIdTag2Str(pSIdTag, PSIDNMHOST | PSIDNMAPPL | PSIDNMUSER) ; 
sPerms = perms2St r( perms ) ; 

sprintf (msgBuf , "%s has %s\n", sName, sPerms); 
free(sName); f ree(sPerms) ; 
collabUtilPopupMessage(msgBuf ) ; 

if(*pSIdTag == pFrontSId->lSIDTag ) { 

setCollabFrontPermsOprn (currCollSIdTag) ; 

} 

} 

/* 

* Function 

*/ 

static textDlgCntlData *pCollabTextDCD; 
void 
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collabDescribeOprn( iWhich) 
int iWhich; 

{ 

shastrald *pSesmSId, *pSId; 

shastraldTag *pSIdTag; 
shastraldTags *pSIdTags; 
char *str, *sPerms, msgBuf [128] ; 
unsigned long perms; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if ( (pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

pSIdTags = getSesmFrontSIdTags(&currCollSIdTag) ; 

if ((iWhich < 0) | | (iWhich >= pSIdTags->shastraIdTags_len) ) { 

collabUtilPopupMessage( "System not in Current Session ! \n" ) ; 

return; 

} 

pSIdTag = &pSIdTags->shast raIdTags_val [iWhich] ; 
pSId = mapSIdTag2SId(pSIdTag) ; 
if(pSId == NULL){ 

collabUtilPopupMessage( "Invalid System!\n") ; 

return; 

} 

if (pCollabTextDCD == NULL){ 

pCollabTextDCD = (textDlgCntlData*)malloc(sizeof (textDlgCntlData) ) ; 
memset(pCollabTextDCD, 0, sizeof (textDlgCntlData) ) ; 
pCollabTextDCD->sName = "Shastra Description"; 
pCollabTextDCD->f nDest royCallback = collabShowTextDestroyOprn; 
pCollabTextDCD->fBehave = DIAL0G_AUT0 LOWER; 
pCollabTextDCD->iDelay = 60000; 

setupTextDialog(pFrontAppData->wgTop, pCollabTextDCD, NULL); 

} 

str = pSId2StrDetail(pSId, 0); 
textDialogAppendText(pCollabTextDCD, str) ; 
f ree( st r) ; 

perms = getSesmFrontPerms (&currCollSIdTag, pSIdTag); 
sPerms = perms2St r( perms ) ; 

sprintf (msgBuf , "Permissions : %s\n", sPerms); 
f ree(sPerms) ; 

textDialogAppendText(pCollabTextDCD, msgBuf) ; 



void 

collabShowTextDest royOprn(pTextCD) 
textDlgCntlData *pTextCD; 

{ 

if(pTextCD != pCollabTextDCD) { 
return; 

} 

if (pCollabTextDCD != NULL){ 
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f ree(pCollabTextDCD) ; 
pCollabTextDCD = NULL; 

} 

} 

/* 

* Function 
*/ 
void 

collabFloorSetOprn ( iWhich) 
int iWhich; 

{ 

shastrald *pSesmSId; 
shastraldTag *pSIdTag; 
shastraldTags *pSIdTags; 
unsigned long myPerms; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if ( (pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

myPerms = getSesmFrontPerms (&cu rrCollSIdTag , & pFrontSId->lSIDTag) ; 
if (! (myPerms & SHASTRA_PERM_GRANT) ) { 

collabUtilPopupMessage( "No Capability to Set Floor!\n"); 

return; 

} 

pSIdTags = getSesmFrontSIdTags(&currCollSIdTag) ; 

if ((iWhich < 0) | | (iWhich >= pSIdTags->shastraIdTags_len) ) { 

collabUtilPopupMessage( "System not in Current Session ! \n" ) ; 

return; 

} 

pSIdTag = &pSIdTags->shast raIdTags_val [iWhich] ; 

if (collTellTokenReq(pHostShaCurrColl, pSIdTag) == -1){ 

collabUtilPopupMessage("collTellTokenReq( ) Error!\n") ; 

return; 

} 



/* 

* Function 
*/ 
void 

collabSetSesFormatOprn( iMode) 
CollabFmtMode iMode; 

{ 

shastrald *pSesmSId; 
unsigned long myPerms; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if((pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 
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} 

myPerms = getSesmFrontPerms (&cu rrCollSIdTag , & pFrontSId->lSIDTag) ; 
if ( ! (myPerms & SHASTRA_PERM_GRANT) ) { 

collabUtilPopupMessage( "No Capability to Set Format ! \n" ) ; 

return; 

} 

if (iMode == CollabFmt_FORMAL) { 

collFormat = SHASTRA_FORMAT_FORMAL; 

} 

else{ 

collFormat = SHASTRA_FORMAT_INFORMAL; 

} 

if (coUSetSesFormatReq(pHostShaCurrColl, collFormat) == -l){ 
colla but ilPopupMes sage ( "collSetSes Format Req ( ) Error ! \n" ) ; 
return; 

} 



/* 

* Function 
*/ 
void 

collabSetFloorModeOprn( iMode) 
CollabFlrMode iMode; 

{ 

shastrald *pSesmSId; 
unsigned long myPerms; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if((pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

myPerms = getSesmFrontPerms (&cu rrCollSIdTag , & pFrontSId->lSIDTag) ; 
if (! (myPerms & SHASTRA_PERM_GRANT) ) { 

collabUtilPopupMessage( "No Capability to Set Format !\n"); 

return; 

} 

switch( iMode) { 

case CollabFl r_MODERATED : 

collFloorMode = SHASTRA_FLOOR_MODERATED; 

break; 

case CollabFl r_VOLUNTARY : 

collFloorMode = SHASTRA_FLOOR_VOLUNTARY; 

break; 
case CollabFlr_CYCLIC: 

collFloorMode = SHASTRA_FLOOR_CYCLIC; 

break; 

case CollabFlr_PREEMPTIVE: 

collFloorMode = SHASTRA_FLOOR_PREEMPTIVE; 
break; 

case CollabFl r_HAND0FF : 

collFloorMode = SHASTRA_FLOOR_HANDOFF; 
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break; 
case CollabFlr_QUEUED: 

collFloorMode = SHASTRA_FLOOR_QUEUED; 

break; 
default: 

return; 

} 

if (collSetFloorModeReq(pHostShaCurrColl, collFloorMode) == -1){ 
colla but ilPopupMes sage ( M collSetFloorModeReq( ) Error ! \n" ) ; 
return; 

} 

} 

/* 

* Function 
*/ 
void 

collabFreeFloorOprn(f Set) 
int fSet; 

{ 

shastrald *pSesmSId; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if ( (pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

if (sldTagToken == pFrontSId->lSIDTag ) { 

if (collFreeTokenReq(pHostShaCurrColl) == -1){ 

collabUtilPopupMessage("collFreeTokenReq( ) Error ! \n" ) ; 
return; 

} 

} 

fFreeFloor = fSet; 



/* 

* Function 
*/ 
void 

collabRequestFloorOprn( ) 
{ 

shastrald *pSesmSId; 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if ( (pSesmSId == NULL) || (pHostShaCurrColl == NULL)){ 

collabUtilPopupMessage( "Invalid Current Session ! \n" ) ; 

return; 

} 

if (sldTagToken != pFrontSId->lSIDTag ) { 

if (collGrabTokenReq(pHostShaCurrColl) == -1){ 

collabUtilPopupMessage("collGrabTokenReq( ) Error ! \n" ) ; 
return; 
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} 

} 

} 

void 

collabSetlnviteOption(iCollOpt) 
CollabOption iCollOpt; 

{ 

collOptionState. ilnviteOpt = iCollOpt; 

} 

void 

collabSetAskJoinOption(iCollOpt) 
CollabOption iCollOpt; 

{ 

collOptionState. iAskJoinOpt = iCollOpt; 

} 

void 

collabSetStartOption(iCollOpt) 
CollabOption iCollOpt; 

{ 

collOptionState. iStartOpt = iCollOpt; 

} 

void 

collabSetForceJoinOption( iCollOpt ) 
CollabOption iCollOpt; 

{ 

collOptionState. iForceJoinOpt = iCollOpt; 

} 

void 

collabSyncOprn( iCmd) 
CollabCmd iCmd; 

{ 

shastrald *pSesmSId; 

if(iCmd != CollabCmd_SYNCSESSION) { 

pSesmSId = getSIdByTaglnSIds (&currCollSIdTag, &shast raSesmlds ) ; 
if ( (pSesmSId == NULL) || ( pHostShaCu rrColl == NULL)){ 
collabUtilPopupMessageC'Invalid Current Session ! \n" ) ; 
return; 

} 

} 

switch (iCmd){ 

case CollabCmd_SYNCSESSION: 

if (getShaSesmldReq(pHostKernel) == -1){ 

collabUt ilPopupMes sage (" get ShaSesmldReq ( ) Error !\n" ) ; 
return; 

} 

break; 

case CollabCmd_SYNCSESSFR: 
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if (getShaSesmFrldReqtpHostKernel, &currCollSIdTag) == -1){ 
collabUtilPopupMes sage (" get ShaSesmFrldReq ( ) Error ! \n" ) ; 
return; 

} 

break; 

case CollabCmd_SYNCFORMAT : 

if (collGetSesFormatReq(pHostShaCurrColl) == -1){ 

collabUtilPopupMes sage ( "col IGetSes Forma tReq ( ) Error !\n") ; 
return; 

} 

break; 

case CollabCmd_SYNCIXNMODE: 

if (collGetlxnModeReq(pHostShaCurrColl) == -1){ 

collabUtilPopupMes sage ( "collGetlxnModeReq ( ) Error ! \n" ) ; 
return; 

} 

break; 

case CollabCmd_SYNCFLRMODE : 

if (collGetFloorModeReq(pHostShaCurrColl) == -1){ 

collabUtilPopupMes sage ( "collGetFloorModeReq ( ) Error !\n") ; 
return; 

} 

break; 

case CollabCmd_SYNCFLOOR: 

if (collAskTokenReq(pHostShaCurrColl) == -1){ 

collabUtilPopupMes sage ( "collAskTokenReq ( ) Error !\n" ) ; 
return; 

} 

break; 

case CollabCmd_SYNCPERMS: 

if (collGetPermsReq(pHostShaCurrColl, 

&pFrontSId->lSIDTag) == -1){ 
collabUtilPopupMes sage ("collGetPermsReq( ) Error !\n" ) ; 
return; 

} 

break; 

} 

} 

/* 

* Function 
*/ 
int 

f rontIsInCollSession( sldTag, smSIdTag) 
shastraldTag sldTag; 
shastraldTag smSIdTag; 

{ 

shastraldTags *pSIdTags; 
int iFront; 

pSIdTags = getSesmFrontSIdTags(&smSIdTag) ; 

iFront = getSIdTaglndexInSIdTags (&sIdTag, pSIdTags); 

if (iFront < 0) { 
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return 0; 
} else { 
return 1; 

} 

} 



#define MAPSIZE 64 

static collCommMapEntry collMap [MAPSIZE] ; 
shaCommCntlData * 

getCollabCommData(smSIdTag, ISIdTag, iMode) 
shastraldTag smSIdTag; 
shastraldTag ISIdTag; 
ShastraCommMode iMode; 

{ 

int i; 

if ( IsmSIdTag || USIdTag || !iMode){ 
return; 

} 

for(i=0; i < MAPSIZE; i++) { 

if ( (smSIdTag == collMap [i] . smSIdTag ) && 
(ISIdTag == collMap [i] . ISIdTag) && 
(iMode == collMapfi] .iMode) ){ 
return collMap [i] . pCommCD; 

} 

} 

return NULL; 



setCollabCommData ( smSIdTag, ISIdTag, iMode, pCommCD) 
shastraldTag smSIdTag; 
shastraldTag ISIdTag; 
ShastraCommMode iMode; 
shaCommCntlData *pCommCD; 

{ 

int i; 

if (IsmSIdTag || USIdTag || liMode || pCommCD == NULL){ 
return -1; 

} 

for(i=0; i < MAPSIZE; i++) { 
if (collMapfi] .smSIdTag == 0){ 
collMap [i] . smSIdTag = smSIdTag; 
collMapfi] .ISIdTag = ISIdTag; 
collMap [i] . iMode = iMode; 
collMap [i] . pCommCD = pCommCD; 
return i; 
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} 

f p rint f (stderr, "set CollabCommData ( %ld,%ld,%d) ->couldn 't set !\n", 

smSIdTag, ISIdTag, iMode); 
return -1; 



int 

f reeCollabCommData(smSIdTag, ISIdTag, iMode) 
shastraldTag smSIdTag; 
shastraldTag ISIdTag; 
Shast raCommMode iMode; 

{ 

int i; 

if (! smSIdTag || USIdTag || !iMode){ 
return; 

} 

for(i=0; i < MAPSIZE; i++) { 

if ( (smSIdTag == collMap [i] . smSIdTag ) && 
(ISIdTag == collMap [i] . ISIdTag) && 
(iMode == collMapfi] .iMode) ){ 
collMap [i] . smSIdTag = 0; 
collMapfi] .ISIdTag = 0; 
collMap [i] . iMode = 0; 
collMapfi] .pCommCD = NULL; 
return i; 

} 

} 

f print f ( stderr, "f reeCollabCommData(%ld,%ld,%d)->couldn 1 t f ree !\n", 

smSIdTag, ISIdTag, iMode); 
return -1; 



void 

collabAskJoinOprnSilent ( int i) 
{ 

shastraldTag smSIdTag; 
shaCommCntlData *pCommCD; 
shastrald *pSesmSId; 

if ((i < 0) || (i >= shastraSesmlds. shastralds_len) ){ 
return; 

} 

smSIdTag = shast raSesmlds . shast ralds_val [i] ->lSIDTag ; 
if (f rontIsInCollSession(pFrontSId->lSIDTag, smSIdTag) ){ 

collabUtilPopupMessage( "System Already In Session ! \n" ) ; 

return; 

} 

pSesmSId = getSIdByTaglnSIds (&smSIdTag, &shast raSesmlds ) ; 
if(pSesmSId == NULL){ 
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collabUtilPopupMessage( "Invalid Ask-Join Session ! \n" ) ; 
return; 

} 

if (collAskJoinReq(pHost Kernel, &smSIdTag, 
&pFrontSId->lSIDTag) == -1){ 
colla but ilPopupMes sage ( "collAskJoinReq ( ) Error ! \n" ) ; 
return; 



if ( ( pCommCD = getCollabCommData ( smSIdTag , pFrontSId->lSIDTag, 
ShaComm_ASKJOIN) ) == NULL){ 
pCommCD = ( shaCommCntlData*) malloc ( sizeof ( shaCommCntlData ) ) ; 
memset ( pCommCD, 0, sizeof ( shaCommCntlData )) ; 
pCommCD->locSIdTag = pFrontSId->lSIDTag; 
pCommCD->remSIdTag = smSIdTag; 
pCommCD->smSIdTag = smSIdTag; 
pCommCD->iCommMode = ShaComm_ASKJOIN; 
setupCollabAskJoinCommDialog ( pCommCD) ; 
setCollabCommData( smSIdTag, pFrontSId->lSIDTag, 
ShaComm_ASKJOIN, pCommCD) ; 

} 

/*def au It Dialog Popup (pCommCD->pDia log CD) ;*/ 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* collabCntlUl.c 

*/ 

#include <stdio.h> 

#include <Xm/CascadeB . h> 
#include <Xm/RowColumn . h> 
#include <Xm/ToggleB. h> 
#include <Xm/Form.h> 
#include <Xm/Frame.h> 
#include <Xm/PushB.h> 
#include <Xm/Label.h> 
#include <Xm/Text.h> 
#include <Xm/SelectioB. h> 
#include <Xm/Separator. h> 
#include <Xm/Xm.h> 
#include <X11/Shell. h> 

#include <shast ra/uitools/chooseMany . h> 
#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/menu . h> 
#include <shast ra/uitools/toggles . h> 
#include <shast ra/uitools/buttons . h> 
#include <shast ra/uitools/genui. h> 
#include <shast ra/uitools/dialog . h> 
#in elude <shast ra/uitools/text . h> 
#include <shast ra/uitools/choose. h> 
#include <shastra/uitools/controlPanel. h> 
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#include <shast ra/shast ra . h> 
#include <shast ra/f ront/f ront . h> 
#in elude <shast ra/f ront/f rontP.h> 
#include <shast ra/f ront/f ront St ate. h> 
#include <shast ra/f ront/collabCntl. h> 
#include <shast ra/f ront /col labCnt IP. h> 
#include <shast ra/f ront/ s hast raCnt IP. h> 
#include <shast ra/f ront/ s hast raCnt I. h> 

Widget createHelpPD( ) ; 

static void collabOptionCB( ) ; 

static void collabOperationCB( ) ; 

static void collabDismissCB ( ) ; 

static void collabCreateBrowserCB ( ) ; 

static void collabShowTraceCB( ) ; 

static void collabSyncCB( ) ; 

static void collabDbgSendCB ( ) ; 

static void collabDbgCheckCB( ) ; 

static void collabFreeFloorCB( ) ; 

static void collabSetIxnModeCB( ) ; 

static void collabCmdCB( ) ; 

static void collabSetSesFormatCB( ) ; 

static void collabSetFloorModeCB( ) ; 

static void collabFreeFloorCB( ) ; 

static void collabRequestFloorCB( ) ; 

static void collabFloorParamsCB( ) ; 

static void chooseOneCollabCB( ) ; 

static void createCollabCntlAreaCB( ) ; 

static void collabInitiateCMCB( ) ; 

static void collabInviteCMCB( ) ; 

static void collabJoinCOCB( ) ; 

static void collabRemoveCOCB( ) ; 

static void collabConnectCOCB( ) ; 

static void collabPermSetCMCB( ) ; 

static void collabPermCheckCOCB( ) ; 

static void collabDescribeCOCB( ) ; 

static void collabFloorSetCOCB( ) ; 

static void collabSetPermsDialogPopup( ) ; 

static void collabCommDismissCB( ) ; 

static void collabCommTerminateCB ( ) ; 

static void collabCommClearCB( ) ; 

static void collabCommTextCB( ) ; 

static void collabCommDismissCB( ) ; 

static void collabCommTerminateCB () ; 

static void collabInviteCommDismissCB( ) ; 

static void collabInviteCommClearCB( ) ; 

static void collablnviteCommTerminateCB ( ) ; 

static void collabInvRespCommClearCB( ) ; 

static void collabInvRespCommAcceptCB( ) , collabInvRespCommDeclineCB( ) 
static void collabInvRespCommTextCB( ) ; 
static void collabInvRespCommAcceptCB( ) ; 
static void collabInvRespCommDeclineCB( ) ; 
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static void collabAskJnRespCommClearCB( ) ; 

static void collabAskJnRespCommAllowCB( ) ; 

static void collabAskJnRespCommDenyCB( ) ; 

static void collabAskJnRespCommTextCB( ) ; 

static void collabAskJnRespCommAllowCB( ) ; 

static void collabAskJnRespCommDenyCB( ) ; 

static void collabAskJoinCommDismissCB( ) ; 

static void collabAskJoinCommClearCB( ) ; 

static void collabAskJoinCommTerminateCB( ) ; 

static void collabSetPermModeCB( ) ; 

static void collabPermsCB( ) ; 

static void collabSetPermModeCB( ) ; 

static void collabSetPermsCB( ) ; 

static void collabAskJoinCommTextCB( ) ; 

static void collabAskJoinCommDismissCB( ) ; 

static void collabAskJoinCommTerminateCB( ) ; 

static Widget createCollAskJnRespCommMenuBar( ) ; 

static Widget createCollInvRespCommMenuBar( ) ; 

static Widget createCollCommMenuBar( ) ; 

static Widget createCollAskJoinCommMenuBar( ) ; 



static void systemGenChooseManySetup(Prot2(Widget, multiChooseCntlData*) ) ; 

static void systemGenChooseManyCB(Prot3(Widget, XtPointer, XtPointer)); 

static void systemGenChoose0neSetup(Prot2(Widget, optChooseCntlData*) ) ; 

static void systemGenChoose0neCB(Prot3(Widget, XtPointer, XtPointer)); 

static void collabGenChoose0neSetup(Prot2(Widget, optChooseCntlData*)); 

static void collabGenChoose0neCB(Prot3(Widget, XtPointer, XtPointer)); 

static void sesMgrGenChoose0neSetup(Prot2(Widget, optChooseCntlData*)); 

static void sesMgrGenChoose0neCB(Prot3(Widget, XtPointer, XtPointer)); 

static void collabFrontGenChoose0neSetup(Prot2(Widget, optChooseCntlData*)) 

static void collabFrontGenChoose0neCB(Prot3(Widget, XtPointer, XtPointer)); 

static void collabFrontGenChooseManySetup(Prot2(Widget, multiChooseCntlData 
*)); 

static void collabFrontGenChooseManyCB(Prot3(Widget, XtPointer, XtPointer)) 



chooseOne *pcoCollab; 
chooseOne *pcoCollabFronts ; 
chooseMany *pcmCollabFronts ; 

static chooseOne *pcoSystems ; 
static chooseMany *pcmSystems ; 
static chooseOne *pcoSesMgrs; 

static int fDebugTrace = 1; 

static mg rCntlData *pCollabDismissData; 

static textCntlData collabMsgBuf Cntl = {"collMsgBuf f er" , NULL, NULL}; 
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static Widget wgCollabShell; 
static Widget 

createCollabMenuBar(wgParent, sName, argList) 
Widget wgParent; 
char *sName; 
XtVarArgsList argList; 

{ 

Widget wgMenuBar; 

Widget wgControlPD, wgOptionPD, wgDebugPD, wgHelpPD; 

Arg args[8]; 

int n ; 

static mg rCntlData cntlOperation; 

static mg rCntlData collBrowser; 

static menultem controlPDf] = { 

{"App. Operations", (XtPointer) &cntlOperation, False, 
collabOperationCB}, 

{"Session Browser", (XtPointer)&collBrowser, False, 
collabCreateBrowserCB}, 

{"sep", (XtPointer) NULL, False, NULL, NULL, &xmSeparatorWidgetClass}, 

{"Dismiss", (XtPointer) NULL, False, collabDismissCB}, 

{NULL} 

}; 

static menultem syncPDf] = { 

{"Sessions", (XtPointer ) CollabCmd_SYNCSESSION, False, collabSyncCB}, 
{"Session Fronts", (XtPointer ) CollabCmd_SYNCSESSFR, False, collabSyncCB 
}, 

{"Session Format", (XtPointer ) CollabCmd_SYNCFORMAT, False, collabSyncCB 
}, 

{"Interaction Mode", (XtPointer) CollabCmd_SYNCIXNMODE, False, 
collabSyncCB}, 

{"Floor Mode", (XtPointer) CollabCmd_SYNCFLRMODE, False, collabSyncCB}, 
{"Floor", (XtPointer)CollabCmd_SYNCFLOOR, False, collabSyncCB}, 
{"Permissions", (XtPointer) CollabCmd_SYNCPERMS, False, collabSyncCB}, 
{NULL} 

}; 

static menultem debugPDf] = { 

{"Sync", NULL, False, NULL, NULL, NULL, syncPD, MENU_PUSH}, 
{"Trace", (XtPointer)NULL, True, collabShowTraceCB, NULL, & 

xmToggleButtonWidgetClass}, 
{NULL} 

}; 

/* 

{"Data Send", (XtPointer)NULL, False, collabDbgSendCB }, 
{"Data Check", (XtPointer )NULL, False, collabDbgCheckCB }, 

*/ 

static menultem optionPDf] = { 

{"Auto-Accept", (XtPointer) CollabOpt_ACCEPT, False, collabOptionCB}, 
{"Auto-Decline", (XtPointer) CollabOpt_DECLINE, False, collabOptionCB}, 
{"sep", (XtPointer)NULL, False, NULL, NULL, &xmSeparatorWidgetClass}, 
{"Auto-Allow", (XtPointer) CollabOpt_ALLOW, False, collabOptionCB}, 
{"Auto-Deny", (XtPointer) CollabOpt_DENY, False, collabOptionCB}, 
{"sep", (XtPointer)NULL, False, NULL, NULL, &xmSeparatorWidgetClass}, 



Page 4 of 39 



collabCntlUl.c 



7/5/1 1 1 1 :52 AM 



{"Auto-Start", (XtPointer) CollabOpt_START, False, collabOptionCB}, 
{"sep", (XtPointer)NULL, False, NULL, NULL, &xmSeparatorWidgetClass}, 
{"Force-Join", (XtPointer) CollabOpt_FORCEJOIN, False, collabOptionCB}, 
{NULL} 

}; 

n = 0; 

if (argList) { 

XtSetArg(args [n] , XtVaNestedList, argList); 
n++; 

} 

XtSetArg(args [n] , XmNrightAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNleft Attachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNtopAttachment, XmATTACH_FORM) ; 
n++; 

wgMenuBar = XmCreateMenuBar(wgParent, sName, args, n); 
wgControlPD = pulldownMenuCreate(wgMenuBar, "Control", MENU_PUSH, 
controlPD, NULL); 

wgOptionPD = pulldownMenuCreate(wgMenuBar, "Options", MENU_CHECK, 

optionPD, NULL); 
wgDebugPD = pulldownMenuCreate(wgMenuBar, "Debug", MENU_MIXED, 

debugPD, NULL); 
wgHelpPD = c reateHelpPD (wgMenuBa r ) ; 
return wgMenuBar; 



static toggleltem collabPermTgls [ ] = { 

{"Access", (XtPointer)CollabPerm_ACCESS, False, NULL}, 
{"Browse", (XtPointer)CollabPerm_BROWSE, False, NULL}, 
{"Modify", (XtPointer)CollabPerm_MODIFY, False, NULL}, 
{"Copy", (XtPointer) CollabPerm_COPY, False, NULL}, 
{"Grant", (XtPointer ) CollabPerm_GRANT, False, NULL}, 
{NULL} 

}; 

void 

collabSetPermToggles ( IPerms ) 
unsigned long IPerms; 

{ 

if (collabPermTgls [0] .wgTgl == NULL){ 
return; 

} 

togglesSetState( collabPermTgls, (XtPointer) CollabPerm_ACCESS, 

(IPerms & SHASTRA_PERM_ACCESS) , True); 
togglesSetState( collabPermTgls, (XtPointer) CollabPerm_BROWSE, 

(IPerms & SHASTRA_PERM_BROWSE) , True); 
togglesSetState( collabPermTgls, (XtPointer) CollabPerm_MODI FY, 

(IPerms & SHASTRA_PERM_MODIFY) , True); 
togglesSetState( collabPermTgls, (XtPointer) CollabPerm_COPY, 

(IPerms & SHASTRA_PERM_COPY) , True); 
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togglesSetState(collabPermTgls, (Xt Pointer) CollabPerm_GRANT, 
(IPerms & SHASTRA_PERM_GRANT) , True); 

} 

static toggleltem collabFloorTgls [ ] = { 

{"Have It?", (XtPointer)CollabCmd_HAVEFLOOR, False, NULL}, 
{"Release?", ( Xt Pointer) Col la bCmd_FREEFL00R, False, collabFreeFloorCB}, 
{NULL} 

}; 

static Widget wgCollabFloorLabel; 
void 

collabSetFloorlnf o( sName, fHave, fFree) 
char *sName; 
int fHave, fFree; 

{ 

XmString str; 

if (wgCollabFloorLabel == NULL){ 
return; 

} 

if(sName == NULL){ 
sName = "<Leader>"; 

} 

str = XmStringCreateSimple(sName) ; 

XtVaSetValues(wgCollabFloorLabel, XmNlabelString, str, NULL); 
XmStringFree( str) ; 

togglesSetState( collabFloorTgls, (Xt Pointer ) CollabCmd_HAVEFLOOR, 
fHave, True); 

togglesSetState( collabFloorTgls, (XtPointer ) CollabCmd_FREEFLOOR, 
fFree, True); 



static void 

createCollabCntlAreaCB(wgParent, xpClient, xpCall) 
Widget wgParent; 
XtPointer xpClient, xpCall; 

{ 

Widget wgDbgText, wglxnForm, wgFlrTitle; 

Widget wgListRC, wgPermTglRC, wgOMRC, wgFloorRC, wgFlrTglRC, wgFlrCmdRC; 

Widget wgModeOM, wgFloorOM, wgFormatOM, wgFlrFrame; 

Arg args[16]; 

int i, n; 

XmString str; 

XtVarArgsList argList; 

static buttonltem f IrCmdBtns [ ] = { 

{"Request Floor" , (XtPointer)NULL, collabRequestFloorCB}, 
{"Parameters", (XtPointer)NULL, collabFloorParamsCB}, 
{NULL} 

}; 

static menultem modeOMf] = { 

{"Unregulated", (XtPointer) CollablxnJJNREGULATED, False, 

collabSetlxnModeCB}, 
{"Regulated", (XtPointer) CollabIxn_REGULATED, False, 
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collabSetlxnModeCB}, 
{NULL} 

}; 

static menultem formatOMf] = { 

{"Formal ", (XtPointer) CollabFmt_FORMAL, False, 

collabSetSesFormatCB}, 
{"Informal", (XtPointer) CollabFmt_INFORMAL, False, 

collabSetSesFormatCB}, 
{NULL} 

}; 

static menultem floorOMf] = { 

{"Moderated ", (XtPointer) CollabFlr_MODERATED, False, 

collabSetFloorModeCB}, 
{"Handoff", (XtPointer) CollabFlr_HANDOFF, False, collabSetFloorModeCB} 

{"Cyclic", (XtPointer) CollabFlr_CYCLIC, False, collabSetFloorModeCB}, 
{"Queued", (XtPointer) CollabFlr_QUEUED, False, collabSetFloorModeCB}, 
{"Voluntary", (XtPointer) CollabFlr_VOLUNTARY, False, 

collabSetFloorModeCB}, 
{"Preemptive", (XtPointer) CollabFlr_PREEMPTIVE, False, 

collabSetFloorModeCB}, 
{NULL} 

}; 

static buttonltem panelBtnsf] = { 

{" Initiate ", (XtPointer) CollabCmd_INITIATE, collabCmdCB}, 
{"Invite", (XtPointer)CollabCmd_INVITE, collabCmdCB}, 
{"Join", (XtPointer)CollabCmd_JOIN, collabCmdCB}, 
{"Remove", (XtPointer) CollabCmd_REMOVE, collabCmdCB}, 
{"Set Perms", (XtPointer ) CollabCmd_PERMSET, collabCmdCB}, 
{"Check Perms", (XtPointer) CollabCmd_PERMCHK, collabCmdCB}, 
{"Set Floor", (XtPointer ) CollabCmd_FL00R, collabCmdCB}, 
{"Describe", (XtPointer) CollabCmd_DESCRIBE, collabCmdCB}, 
{"Converse", (XtPointer) CollabCmd_CONNECT, collabCmdCB}, 
{NULL} 

}; 

char *sXlns = "#override \n <BtnlUp>: \n <BtnlDown> :\n"; 
XtTranslations pXlns; 



wglxnForm = XtVaCreateWidget ( "collablxnForm" , xmFormWidgetClass, 
wgParent, 

XmNtopAttachment, XmATTACH_FORM , 
XmNleftAttachment, XmATTACH_FORM, 
XmN right Attachment , XmATTACH_FORM, 
NULL) ; 

argList = XtVaCreateArgsList (NULL, 

XmNleftAttachment, XmATTACH_FORM, 
XmNtopAttachment, XmATTACH_FORM , 
NULL) ; 

wgListRC = buttonsCreate(wgIxnForm, "panelCmds", XmVERTICAL, 

panelBtns, argList); 
XtManageChild(wgListRC) ; 



Page 7 of 39 



collabCntlUl.c 



7/5/1 1 1 1 :52 AM 



XtFree(argList) ; 

wgOMRC = XtVaCreateWidgetC'modeOMRC", xmRowColumnWidgetClass, 
wglxnForm, 

XmNlef tAttachment , XmATTACH_WIDGET, 
XmNleftWidget, wgListRC, 
XmNtopAttachment, XmATTACH_FORM , 
XmNrightAttachment, XmATTACH_FORM , 
NULL) ; 

wgFormatOM = optionMenuCreate(wgOMRC, "Session Format ", MENU_PUSH, 

XmHORIZONTAL, formatOM, NULL); 
wgModeOM = optionMenuCreate(wgOMRC, "Interaction Mode", MENU_PUSH, 

XmHORIZONTAL, modeOM, NULL); 
wgFloorOM = optionMenuCreate(wgOMRC, "Floor Control ", MENU_PUSH, 

XmHORIZONTAL, floorOM, NULL); 
XtManageChild(wgOMRC) ; 

argList = XtVaCreateArgsList (NULL, 

XmNlef tAttachment, Xm ATTAC H_WI DG ET , 
XmNleftWidget, wgListRC, 
XmNtopAttachment, XmATTACH_WIDGET, 
XmNtopWidget, wgOMRC, 
NULL) ; 

wgPermTglRC = togglesCreate(wgIxnForm, "permTgls", TGL_CHECK, XmVERTICAL, 

collabPermTgls, argList); 
pXlns = XtParseTranslationTable(sXlns) ; 
for(i=0; i<5; i++){ 

XtOverrideTranslations ( collabPermTgls [i] .wgTgl, pXlns) ; 

} 

XtManageChild (wgPermTglRC) ; 
XtFree(argList) ; 

wgFlrFrame = XtVaCreateWidgetC'collabFlrFrame", xmFrameWidgetClass, 
wglxnForm, 

XmNlef tAttachment , XmATTACH_WIDGET, 
XmNleftWidget, wgPermTglRC, 
XmNtopAttachment, XmATTACH_WIDGET, 
XmNtopWidget, wgOMRC, 
XmNrightAttachment, XmATTACH_FORM, 
XmNrightOff set, 5, 
NULL) ; 

wgFloorRC = XtVaCreateWidget ( "collabFloorRC" , xmRowColumnWidgetClass, 
wgFlrFrame, 

XmNorientation, XmVERTICAL, 
XmNisAligned, True, 

XmNentryAlignment, XmALIGNMENT_C ENTER, 
NULL) ; 

str = XmStringCreateSimpleC'Floor" ) ; 

wgFlrTitle = XtVaCreateManagedWidget ( "f loorTitle" , xmLabelWidgetClass, 
wgFloorRC, 

XmNlabelString, str, 
NULL) ; 
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XmStringFree( str) ; 

wgFlrTglRC = togglesCreate(wgFloorRC, "floorTgls", TGL_CHECK, 
XmHORIZONTAL, 

collabFloorTgls, NULL); 
XtOverrideTranslations(collabFloorTgls [0] .wgTgl, pXlns) ; 
XtManageChild(wgFlrTglRC) ; 

str = XmStringCreateSimple("<Leader>" ) ; 

wgCollabFloorLabel = XtVaCreateManagedWidget ( "f loorLabel" , 
xmLabelWidget Class , 
wgFloorRC, 

XmNlabelString, str, 
NULL) ; 

XmStringFree( str) ; 

wgFlrCmdRC = buttonsCreate(wgFloorRC, "f loorCmds" , XmVERTICAL, 

flrCmdBtns, NULL); 
XtManageChild(wgFlrCmdRC) ; 
XtManageChild (wgFloorRC) ; 
XtManageChild (wgFlrFrame) ; 



XtManageChild (wglxnForm) ; 



XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 
XtSetArg 



(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 
(args [n] 



XmNrows, 5) ; n++; 
XmNcolumns, 32);n++; 
XmNeditable, False) ;n++; 
XmNeditMode, XmMULTI_LINE_EDIT) ;n++; 
XmNscrollingPolicy, Xm AUTOMATIC) ; n++; 
XmNvisualPolicy, XmCONSTANT) ; n++; 
XmNscrollBarDisplayPolicy, XmAS_NEEDED) ; n++; 
XmNtopAttachment, XmATTACH_WIDGET) ; n++; 
XmNtopWidget, wglxnForm) ; n++; 
XmNrightAttachment, XmATTACH_FORM) ; n++; 
XmNleft Attachment, XmATTACH_FORM ) ; n++ ; 
XmNbottomAttachment, XmATTACH_FORM) ;n++; 
XmNscrollHorizontal, False); n++; 
XmNscrollVertical, True); n++; 
XmNwordWrap, True); n++; 



wgDbgText = c reateMessageBuf f er (wgParent, "collabTextMsgs" , 

&collabMsgBuf Cntl, args,n); 
XtManageChild (wgDbgText) ; 

} 

static void 

collabSetPermModeCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmToggleButtonCallbackSt ruct *cbs ; 

{ 

collabSetPermOprn( (CollabPermission)xpClient, cbs->set) ; 

} 
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static void 

collabSetIxnModeCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackSt ruct *cbs; 

{ 

collabSetIxnModeOprn( (CollablxnMode)xpClient) ; 

} 

static void 

collabSetSesFormatCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

{ 

collabSetSesFormatOprn( (CollabFmtMode)xpClient) ; 

} 

static void 

collabSetFloorModeCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

{ 

collabSetFloorModeOprn( (CollabFlrMode)xpClient) ; 

} 

static void 

collabFreeFloorCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmToggleButtonCallbackSt ruct *cbs; 

{ 

collabFreeFloorOprn(cbs->set) ; 

} 

static void 

collabRequestFloorCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmToggleButtonCallbackSt ruct *cbs; 

{ 

collabRequestFloorOprn( ) ; 

} 

static void 

collabFloorParamsCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

{ 

/*control panel*/ 
} 
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Widget 

f rontCollabsCB(wgTgl, pMgrCD, xpFoo) 
Widget wgTgl; 
mgrCntlData *pMgrCD; 
XtPointer xpFoo; 

{ 

Widget wgShell; 

panelCntlData *pPanelCntl; 
int fToggles, iColl; 
char **sbNames; 

if (pMgrCD->wgCntl) { 
return; 

} 

pMgrCD->wgTgl = wgTgl; 

pPanelCntl = (panelCntlData *) malloc ( sizeof (panelCntlData) ) ; 
memset ( pPanelCntl, 0, sizeof (panelCntlData) ) ; 

pPanelCntl->sName = "Collab"; 
pPanelCntl->f nMenuBar = createCollabMenuBar; 
pPanelCntl->f nChooseCB = chooseOneCollabCB; 
pPanelCntl->f CntlArea = True; 

fToggles = PANEL_SELECT | PANEL_RENAME | PANEL_LEAVE | PANEL_TERMINATE | 

PANELJJNSELECT; 
pMgrCD->wgCntl = wgShell = 

createPanelControl(pMgrCD->wgParent, "collabCont rol" , wgTgl, pPanelCntl 

fToggles, PANEL_CH00SE0NE, NULL); 

createCollabCntlAreaCB(pPanelCntl->wgCntlArea, NULL, NULL); 

pCollabDismissData = pPanelCntl->pDismiss ; 
pcoCollab = pPanelCntl->pChooseOne; 

iColl = getCollabIndex(0) ; 
if(iColl != -1){ 

sbNames = getCollabNameList (0) ; 

chooseOneChangeList(pcoCollab, sbNames, iColl); 

if (sbNames) { 
f ree(sbNames) ; 

} 

} 

wgCollabShell = wgShell; 
return wgShell; 



static void 

collabDismissCB(wg, xpClient, cbs) 
Widget wg; 
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} 



XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

defaultShellDismissCB(wg, (XtPointer) pCollabDismissData, cbs); 



static void 

collabCmdCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 



{ 



static multiChooseCntlData inviteCD, initiateCD, permSetCD; 
static optChooseCntlData joinCD, removeCD, connectCD; 
static optChooseCntlData permChkCD, floorSetCD, describeCD; 
CollabCmd iCollabCmd ; 



iCollabCmd = (CollabCmd) xpClient; 
switch (iCollabCmd) { 
case CollabCmd_INITIATE: 

initiateCD. fnCallback = collablnitiateCMCB; 

initiateCD. xpClient = (XtPointer) NULL; 

systemGenChooseManyCB(wg, (XtPointer) & initiateCD, NULL); 
break; 
case CollabCmd_INVITE: 

inviteCD. fnCallback = collablnviteCMCB; 
inviteCD. xpClient = (XtPointer) NULL; 

systemGenChooseManyCB(wg, (XtPointer) & inviteCD, NULL); 
break; 
case CollabCmd_JOIN: 

joinCD. fnCallback = collabJoinCOCB; 
joinCD. xpClient = (XtPointer) NULL; 

sesMgrGenChooseOneCB(wg, (XtPointer) & joinCD, NULL); 
break; 
case CollabCmd_REMOVE: 

removeCD. fnCallback = collabRemoveCOCB; 
removeCD. xpClient = (XtPointer) NULL; 

collabFrontGenChooseOneCB(wg, (XtPointer) & removeCD, NULL); 
break; 

case CollabCmd_CONNECT: 

connectCD. fnCallback = collabConnectCOCB; 
connectCD. xpClient = (XtPointer) NULL; 

collabFrontGenChooseOneCB(wg, (XtPointer) & connectCD, NULL); 
break; 

case CollabCmd_DESCRIBE: 

describeCD. fnCallback = collabDescribeCOCB; 
describeCD. xpClient = (XtPointer) NULL; 

collabFrontGenChooseOneCB(wg, (XtPointer) & describeCD, NULL); 
break; 

case CollabCmd_PERMSET: 

permSetCD. fnCallback = collabPermSetCMCB; 
permSetCD. xpClient = (XtPointer) NULL; 

collabFrontGenChooseManyCB(wg, (XtPointer) & permSetCD, NULL); 
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break; 

case CollabCmd_PERMCHK: 

permChkCD. f nCallback = collabPermCheckCOCB; 
permChkCD.xpClient = (XtPointer) NULL; 

collabFrontGenChooseOneCB(wg, (XtPointer) & permChkCD, NULL); 
break; 
case CollabCmd_FL00R: 

floorSetCD.fnCallback = collabFloorSetCOCB; 
floorSetCD.xpClient = (XtPointer) NULL; 

collabFrontGenChooseOneCB(wg, (XtPointer) & floorSetCD, NULL); 
break; 

} 

} 

static void 

collabInitiateCMCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient, xpCall; 

{ 

int *aiWhich = (int*) xpCall; 

collablnitiateOprn(aiWhich) ; 

} 

static void 

collabInviteCMCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient, xpCall; 

{ 

int *aiWhich = (int*) xpCall; 

collablnviteOprn(aiWhich) ; 

} 

static void 

collabJoinCOCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient, xpCall; 

{ 

int iWhich = (int) xpCall; 

collabAskJoinOprn(iWhich) ; 

} 

static void 

collabRemoveCOCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient, xpCall; 

{ 

int iWhich = (int) xpCall; 

collabRemoveOprn(iWhich) ; 

} 
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static void 

collabConnectCOCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient, xpCall; 

{ 

int iWhich = (int) xpCall; 

collabCommConnectOprn(iWhich) ; 

} 

static void 

collabPermSetCMCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient, xpCall; 

{ 

int *aiWhich = (int*) xpCall; 

collabSetPermsDialogPopup(wg, (XtPointer) aiWhich, NULL); 

} 

static void 

collabSetPermsCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient, xpCall; 

{ 

int *aiWhich = (int*) xpClient; 

collabPermSetOprn(aiWhich) ; 

} 

static void 

collabPermCheckCOCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient, xpCall; 

{ 

int iWhich = (int) xpCall; 

collabPermCheckOprn ( iWhich) ; 

} 

static void 

collabDescribeCOCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient, xpCall; 

{ 

int iWhich = (int) xpCall; 

collabDescribeOprn( iWhich) ; 

} 

static void 

collabFloorSetCOCB(wg, xpClient, xpCall) 
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Widget wg; 

XtPointer xpClient, xpCall; 

{ 

int iWhich = (int) xpCall; 

collabFloorSetOprn( iWhich) ; 

} 

static void 

leaveCollabCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackSt ruct *cbs; 

{ 

panelAxnCntlData *pGenCD = (panelAxnCntlData*)xpClient; 
collabLeaveOprn( ( int ) pGenCD->xpCall) ; 

} 

static void 

terminateCollabCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackSt ruct *cbs; 

{ 

panelAxnCntlData *pGenCD = (panelAxnCntlData*)xpClient; 
collabTerminateOprn ( ( int ) pGenCD->xpCall) ; 

} 

static void 

renameCollabCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackSt ruct *cbs; 

{ 

panelAxnCntlData *pGenCD = (panelAxnCntlData*)xpClient; 
collabRenameOprn( ( int ) pGenCD->xpCall, 0) ; 

} 

static void 

chooseOneCollabCB(wg, xpClientData, xpCallData) 
Widget wg; 

XtPointer xpClientData, xpCallData; 

{ 

int which = (int) xpCallData; 

panelCntlData *pPanelCntl = ( panelCntlData *) xpClientData; 

static panelAxnCntlData genCDConf irm; 
static panelAxnCntlData genCDRen; 

switch (pPanelCntl->iMode) { 
case PANEL_SELECT: 
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collabSelectOprn(which) ; 

break; 
case PAN EL_UN SELECT : 

collabUnselectOprn(which) ; 

break; 
case PANEL_RENAME: 

genCDRen. f nCallback = renameCollabCB; 

genCDRen.xpCall = xpCallData; 

pPanelCntl->xpClient = (XtPointer)&genCDRen; 

panelDef aultRenamePUCB(wg, xpClientData, xpCallData); 

break; 
case PANEL_LEAVE: 

genCDConf irm. f nCallback = leaveCollabCB; 

genCDConf irm.xpCall = xpCallData; 

pPanelCntl->xpClient = (XtPointer)&genCDConf irm; 

panelDef aultConf irmPUCB(wg, xpClientData, xpCallData); 

break; 
case PANEL_TERMINATE: 

genCDConf irm. f nCallback = terminateCollabCB; 

genCDConf irm.xpCall = xpCallData; 

pPanelCntl->xpClient = (XtPointer)&genCDConf irm; 

panelDef aultConf irmPUCB(wg, xpClientData, xpCallData); 

break; 
default: 

break; 

} 

} 

static void 

collabCreateBrowserCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackSt ruct *cbs; 

{ 

/*popup a browser dialog per session*/ 



static void 

collabOperationCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmToggleButtonCallbackSt ruct *cbs; 

{ 

mgrCntlData *mgrCntl = (mg rCntlData*) xpClient ; 
collabOperationsOprn(mgrCntl, cbs->set) ; 



static void 

collabOptionCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmToggleButtonCallbackSt ruct *cbs; 
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static Widget wgCurrlnvite, wgCurrJoin; 
CollabOption iCollOpt = (CollabOption)xpClient; 

switch(iCollOpt){ 
case CollabOpt_ACCEPT: 
case CollabOpt_DECLINE: 
if (cbs->set){ 

if (wgCurrlnvite && (wgCurrlnvite != wg)){ 
XmToggleButtonSetState(wgCurrInvite, False, True); 
} 

wgCurrlnvite = wg; 
coUabSetlnviteOption(iCollOpt) ; 

} 

else if (cbs->event){ 

collabSetInviteOption(CollabOpt_Null) ; 

} 

break; 
case CollabOpt_ALLOW: 
case CollabOpt_DENY: 
if (cbs->set){ 

if (wgCurrJoin && (wgCurrJoin != wg)){ 
XmToggleButtonSetState(wgCurrJoin, False, True); 
} 

collabSetAskJoinOption(iCollOpt) ; 
wgCurrJoin = wg; 

} 

else if (cbs->event){ 

collabSetAskJoinOption(CollabOpt_Null) ; 

} 

break; 
case CollabOpt_START: 
if (cbs->set){ 

collabSetStartOption(iCollOpt) ; 

} 

else{ 

collabSetStartOption(CollabOpt_Null) ; 

} 

break; 

case CollabOpt_FORCEJOIN: 
if (cbs->set){ 

collabSetForceJoinOption( iCollOpt ) ; 

} 

else{ 

collabSetForceJoinOption(CollabOpt_Null) ; 

} 

break; 

} 

} 

static void 

collabOptJoinCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
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XmToggleButtonCallbackSt ruct *cbs ; 

{ 

static Widget wgCurrSet; 

if (cbs->set) { 

if (wgCurrSet && (wgCurrSet != wg)){ 

XmToggleButtonSetState(wgCurrSet, False, True); 

} 

wgCurrSet = wg; 

} 

} 

static void 

collabShowTraceCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmToggleButtonCallbackSt ruct *cbs; 

{ 

fDebugTrace = cbs->set; 



static void 

collabSyncCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

{ 

collabSyncOprn( (CollabCmd)xpClient) ; 



static Widget 

createCollCommMenuBar (wgParent, sName, pCommCD, argList) 
Widget wgParent; 
char *sName; 

shaCommCntlData *pCommCD; 
XtVarArgsList argList; 

{ 

Widget wgMenuBar, wgControlPD, wgOptionsPD, wgHelpPD; 

static menultem controlPDf] = { 

{"Clear", (XtPointer) NULL, False, collabCommClearCB}, 
{"Dismiss", (XtPointer) NULL, False, collabCommDismissCB}, 
{"Close", (XtPointer) NULL, False, collabCommTerminateCB}, 
{NULL} 

}; 

static menultem optionsPDf] = { 

{"Comm. Panel", (XtPointer) NULL, False, NULL}, 
{NULL} 

}; 

menultem *pControlPD, *pOptionsPD; 
Arg args[8]; 
int n; 
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n = 0; 

XtSetArg(args [n] , XmNrightAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNleft Attachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNtopAttachment, XmATTACH_FORM) ; 
n++; 

wgMenuBar = XmCreateMenuBar(wgParent, sName, args, n); 

pControlPD = pCommCD->pCont rolPD = (menuItem*)malloc(sizeof (controlPD) ) ; 
memcpy ( pCont rolPD, controlPD, sizeof ( cont rolPD) ) ; 
pControlPD [0] .xpClient = (XtPointer) pCommCD; 
pControlPD [1] .xpClient = (XtPointer) pCommCD; 
pControlPD [2] .xpClient = (XtPointer) pCommCD; 

wgControlPD = pulldownMenuCreate(wgMenuBar, "Control", MENU_PUSH, 

pCommCD->pControlPD, NULL); 
pOptionsPD = pCommCD->pOptionsPD = (menuItem*)malloc(sizeof (optionsPD) ) ; 
memcpy ( pOptionsPD, optionsPD, sizeof ( optionsPD) ) ; 
pOptionsPD [0] .xpClient = (XtPointer) pCommCD; 
pOptionsPD [1] .xpClient = (XtPointer) pCommCD; 

wgOptionsPD = pulldownMenuCreate(wgMenuBar, "Options", MENU_CHECK, 

pCommCD->pOptionsPD, NULL); 
wgHelpPD = c reateHelpPD (wgMenuBa r ) ; 
return wgMenuBar; 



static void 

collabCommTerminateCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackSt ruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 

defaultDialogCleanUpCB(wg, pCommCD->pDialogCD, cbs); 
XtDest royWidget ( pCommCD->pDia log CD->wg Dialog ) ; 
XtFree( (char*)pCommCD->pDialogCD) ; 
if ( pCommCD->pOptionsPD) { 

XtFree( (char*)pCommCD->pOptionsPD) ; 
pCommCD->pOptionsPD = NULL; 

} 

if ( pCommCD->pCont rolPD ) { 

XtFree( ( cha r*) pCommCD->pCont rolPD) ; 
pCommCD->pControlPD = NULL; 

} 

if (pCommCD->pRemTextCD != NULL){ 
XtFree( (char*)pCommCD->pRemTextCD) ; 
pCommCD->pRemTextCD = NULL; 

} 

if (pCommCD->pLocTextCD != NULL){ 
XtFree( (char*)pCommCD->pLocTextCD) ; 
pCommCD->pLocTextCD = NULL; 

} 
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collabCommDisconnectOprn ( pCommCD->smSIdTag, pCommCD->remSIdTag ) ; 

} 

static void 

collabCommDismissCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackSt ruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 

def aultDialogCancelCB(wg, (XtPointer) pCommCD->pDialogCD, cbs); 

} 

static void 

collabCommClearCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackStruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
clearMessageBuf f er( pCommCD->pLocTextCD) ; 

collabCommSendMessageOprn(pCommCD->smSIdTag, pCommCD->remSIdTag, "" ) ; 

} 

static void 

collabCommTextCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackStruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
char *str; 

str = XmTextGetSt ring (wg ) ; 

collabCommSendMessageOprn(pCommCD->smSIdTag, pCommCD->remSIdTag, str) ; 
XtFree(str) ; 

} 



void 

setupCollabCommDialog (pCommCD) 
shaCommCntlData *pCommCD; 

{ 

static buttonltem dlgBtnsf] = { 

{"Dismiss", (XtPointer) DIAL0G_0K, collabCommDismissCB}, 
{"Close", (XtPointer) DIALOG_CANCEL, collabCommTerminateCB}, 
{"Help", (XtPointer) DIALOG_HELP, NULL}, 
{NULL} 

}; 

pCommCD->f nMenuBar = createCollCommMenuBar; 
pCommCD->f nTextCallback = collabCommTextCB; 
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pCommCD->pDlgBtns = dlgBtns; 
createShast raCommDialog (pCommCD) ; 

} 



static Widget 

createCollInviteCommMenuBar(wgParent, sName, pCommCD, argList) 
Widget wgParent; 
char *sName; 

shaCommCntlData *pCommCD; 
XtVarArgsList argList; 

{ 

Widget wgMenuBar, wgControlPD, wgOptionsPD, wgHelpPD; 

static menultem controlPD [] = { 

{"Clear", (XtPointer) NULL, False, collablnviteCommClearCB}, 
{"Dismiss", (XtPointer) NULL, False, collablnviteCommDismissCB}, 
{"Close", (XtPointer) NULL, False, collablnviteCommTerminateCB}, 
{NULL} 

}; 

static menultem optionsPD [] = { 

{"Comm. Panel", (XtPointer) NULL, False, NULL}, 
{NULL} 

}; 

menultem *pControlPD, *pOptionsPD; 
Arg args[8]; 
int n ; 

n = 0; 

XtSetArg(args [n] , XmNrightAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNlef tAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNtopAttachment, XmATTACH_FORM) ; 
n++; 

wgMenuBar = XmCreateMenuBar(wgParent, sName, args, n); 

pControlPD = pCommCD->pCont rolPD = (menuItem*)malloc(sizeof (controlPD) ) ; 
memcpy ( pCont rolPD, controlPD, sizeof ( cont rolPD) ) ; 
pControlPD [0] .xpClient = (XtPointer) pCommCD; 
pControlPD [1] .xpClient = (XtPointer) pCommCD; 
pControlPD [2] .xpClient = (XtPointer) pCommCD; 

wgControlPD = pulldownMenuCreate(wgMenuBar, "Control", MENU_PUSH, 

pCommCD->pControlPD, NULL); 
pOptionsPD = pCommCD->pOptionsPD = (menuItem*)malloc(sizeof (optionsPD) ) ; 
memcpy( pOptionsPD, optionsPD, sizeof ( optionsPD) ) ; 
pOptionsPD [0] .xpClient = (XtPointer) pCommCD; 
pOptionsPD [1] .xpClient = (XtPointer) pCommCD; 

wgOptionsPD = pulldownMenuCreate(wgMenuBar, "Options", MENU_CHECK, 

pCommCD->pOptionsPD, NULL); 
wgHelpPD = c reateHelpPD (wgMenuBa r ) ; 
return wgMenuBar; 
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static void 

collabInviteCommDismissCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackSt ruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 

def aultDialogCancelCB(wg, (XtPointer) pCommCD->pDialogCD, cbs); 



static void 

collabInviteCommTerminateCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackSt ruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 

defaultDialogCleanUpCB(wg, pCommCD->pDialogCD, cbs); 
XtDest royWidget ( pCommCD->pDia log CD->wg Dialog ) ; 
XtFree( (char*)pCommCD->pDialogCD) ; 
if ( pCommCD->pOptionsPD) { 

XtFree( (char*)pCommCD->pOptionsPD) ; 
pCommCD->pOptionsPD = NULL; 

} 

if ( pCommCD->pCont rolPD ) { 

XtFree( ( cha r*) pCommCD->pCont rolPD) ; 
pCommCD->pControlPD = NULL; 

} 

if (pCommCD->pRemTextCD != NULL){ 
XtFree( (char*)pCommCD->pRemTextCD) ; 
pCommCD->pRemTextCD = NULL; 

} 

if (pCommCD->pLocTextCD != NULL){ 
XtFree( (char*)pCommCD->pLocTextCD) ; 
pCommCD->pLocTextCD = NULL; 

} 

collabDeleteInvitePanelOprn(pCommCD->smSIdTag) ; 



static void 

collabInviteCommClearCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackSt ruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
char *str; 

str = ""; 
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clearMessageBuf f er( pCommCD->pLocTextCD) ; 
if ( pCommCD->pSIdTag s ) { 

collabSendInviteMessageOprn(pCommCD->smSIdTag, pCommCD->pSIdTags, 
str); 

} 

else{ 

collabSendUniInviteMessageOprn(pCommCD->smSIdTag, pCommCD->remSIdTag, 
str); 

} 

} 

static void 

collabInviteCommTextCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackStruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
char *str; 

str = XmTextGetString(wg) ; 
if ( pCommCD->pSIdTag s ) { 

collabSendInviteMessageOprn(pCommCD->smSIdTag, pCommCD->pSIdTags, 
str) ; 

} 

else{ 

collabSendUnilnviteMessageOprn ( pCommCD->smSIdTag, pCommCD->remSIdTag, 
str); 

} 

XtFree(str) ; 



void 

setupCollablnviteCommDialog ( pCommCD) 
shaCommCntlData *pCommCD; 

{ 

static buttonltem dlgBtnsf] = { 

{"Dismiss", (XtPointer) DIAL0G_0K, collablnviteCommDismissCB}, 
{"Close", (XtPointer) DIALOG_CANCEL, collablnviteCommTerminateCB}, 
{"Help", (XtPointer) DIALOG_HELP, NULL}, 
{NULL} 

}; 

pCommCD->f nMenuBar = createCollInviteCommMenuBar; 
pCommCD->f nTextCallback = collablnviteCommTextCB; 

pCommCD->pDlgBtns = dlgBtns; 
createShast raCommDialog (pCommCD) ; 

} 



static Widget 

createCollInvRespCommMenuBar(wgParent, sName, pCommCD, argList) 
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Widget wgParent; 
char *sName; 

shaCommCntlData *pCommCD; 
XtVarArgsList argList; 

Widget wgMenuBar, wgCont rolPD, wgOptionsPD, wgHelpPD; 

static menultem cont rolPD [ ] = { 

{"Clear", (XtPointer) NULL, False, collablnvRespCommClearCB}, 
{"Accept", (XtPointer) NULL, False, collablnvRespCommAcceptCB}, 
{"Decline", (XtPointer) NULL, False, collablnvRespCommDeclineCB}, 
{NULL} 

}; 

static menultem optionsPD [] = { 

{"Comm. Panel", (XtPointer) NULL, False, NULL}, 
{NULL} 

}; 

menultem *pControlPD, *pOptionsPD; 
Arg args[8]; 
int n; 

n = 0; 

XtSetArg(args [n] , XmNrightAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNlef tAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNtopAttachment, XmATTACH_FORM) ; 
n++; 

wgMenuBar = XmCreateMenuBar(wgParent, sName, args, n); 

pControlPD = pCommCD->pCont rolPD = (menuItem*)malloc(sizeof (controlPD) ) ; 
memcpy(pControlPD, controlPD, sizeof ( cont rolPD) ) ; 
pControlPD [0] .xpClient = (XtPointer) pCommCD; 
pControlPD [1] .xpClient = (XtPointer) pCommCD; 
pControlPD [2] .xpClient = (XtPointer) pCommCD; 

wgControlPD = pulldownMenuCreate(wgMenuBar, "Control", MENU_PUSH, 

pCommCD->pControlPD, NULL); 
pOptionsPD = pCommCD->pOptionsPD = (menuItem*)malloc(sizeof (optionsPD) ) ; 
memcpy( pOptionsPD, optionsPD, sizeof ( optionsPD) ) ; 
pOptionsPD [0] .xpClient = (XtPointer) pCommCD; 
pOptionsPD [1] .xpClient = (XtPointer) pCommCD; 

wgOptionsPD = pulldownMenuCreate(wgMenuBar, "Options", MENU_CHECK, 

pCommCD->pOptionsPD, NULL); 
wgHelpPD = c reateHelpPD (wgMenuBa r ) ; 
return wgMenuBar; 



static void 

collabInvRespCommTerminateCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackSt ruct *cbs; 



Page 24 of 39 



collabCntlUl.c 



7/5/1 1 1 1 :52 AM 



shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 

defaultDialogCleanUpCB(wg, pCommCD->pDialogCD, cbs); 
XtDest royWidget (pCommCD->pDialogCD->wgDialog) ; 
XtFree( (char*)pCommCD->pDialogCD) ; 
if ( pCommCD->pOptionsPD) { 

XtFree( ( cha r*) pCommCD->pOptionsPD) ; 
pCommCD->pOptionsPD = NULL; 

} 

if ( pCommCD->pCont rolPD ) { 

Xt_Free( ( cha r*) pCommCD->pCont rolPD) ; 
pCommCD->pControlPD = NULL; 

} 

if (pCommCD->pRemTextCD != NULL){ 
Xt_Free( (char*)pCommCD->pRemTextCD) ; 
pCommCD->pRemTextCD = NULL; 

} 

if (pCommCD->pLocTextCD != NULL){ 
XtFree( (char*)pCommCD->pLocTextCD) ; 
pCommCD->pLocTextCD = NULL; 

} 

} 



static void 

collabInvRespCommAcceptCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackSt ruct *cbs; 

{ 

char *str; 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
str = "Invitation Accepted\n"; 

/* 

collabSendInvRespMessageOprn(pCommCD->smSIdTag, pCommCD->remSIdTag, str) ; 
*/ 

collabInvRespCommTerminateCB(wg, xpClient, cbs); 
collabInviteAcceptOprn(pCommCD->smSIdTag, pCommCD->remSIdTag ) ; 

} 



static void 

collabInvRespCommDeclineCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

{ 

char *str; 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
str = "Invitation Declined\n"; 

/* 
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collabSendInvRespMessageOprn(pCommCD->smSIdTag, pCommCD->remSIdTag, str) ; 
*/ 

collabInvRespCommTerminateCB(wg, xpClient, cbs); 
collabInviteDeclineOprn(pCommCD->smSIdTag, pCommCD->remSIdTag ) ; 



static void 

collabInvRespCommClearCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackSt ruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
clearMessageBuf f er( pCommCD->pLocTextCD) ; 

collabSendInvRespMessageOprn(pCommCD->smSIdTag, pCommCD->remSIdTag, "") ; 

} 

static void 

collabInvRespCommTextCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackSt ruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
char *str; 

str = XmTextGetString(wg) ; 

collabSendInvRespMessageOprn(pCommCD->smSIdTag, pCommCD->remSIdTag, str) ; 
XtFree(str) ; 



void 

setupCollablnvRespCommDialog (pCommCD) 
shaCommCntlData *pCommCD; 

{ 

static buttonltem dlgBtnsf] = { 

{"Accept", (XtPointer) DIAL0G_0K, collablnvRespCommAcceptCB}, 
{"Decline", (XtPointer) DIALOG_CANCEL, collablnvRespCommDeclineCB}, 
{"Help", (XtPointer) DIALOG_HELP, NULL}, 
{NULL} 

}; 

pCommCD->f nMenuBar = createCollInvRespCommMenuBar; 
pCommCD->f nTextCallback = collablnvRespCommTextCB; 
pCommCD->f nCancelCallback = collablnvRespCommDeclineCB; 

/* 

pCommCD->fBehave = DIAL0G_AUT0 LOWER; 

pCommCD->iDelay = 60000; 

*/ 



pCommCD->pDlgBtns = dlgBtns; 
createShast raCommDialog (pCommCD) ; 
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} 



static Widget 

createCollAskJnRespCommMenuBar(wgParent, sName, pCommCD, argList) 
Widget wgParent; 
char *sName; 

shaCommCntlData *pCommCD; 
XtVarArgsList argList; 

{ 

Widget wgMenuBar, wgControlPD, wgOptionsPD, wgHelpPD; 

static menultem controlPD [] = { 

{"Clear", (XtPointer) NULL, False, collabAskJnRespCommClearCB}, 
{"Allow", (XtPointer) NULL, False, collabAskJnRespCommAllowCB}, 
{"Deny", (XtPointer) NULL, False, collabAskJnRespCommDenyCB}, 
{NULL} 

}; 

static menultem optionsPD [] = { 

{"Comm. Panel", (XtPointer) NULL, False, NULL}, 
{NULL} 

}; 

menultem *pControlPD, *pOptionsPD; 
Arg args[8]; 
int n ; 

n = 0; 

XtSetArg(args [n] , XmNrightAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNlef tAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNtopAttachment, XmATTACH_FORM) ; 
n++; 

wgMenuBar = XmCreateMenuBar(wgParent, sName, args, n); 

pControlPD = pCommCD->pCont rolPD = (menuItem*)malloc(sizeof (controlPD) ) ; 
memcpy ( pCont rolPD, controlPD, sizeof ( cont rolPD) ) ; 
pControlPD [0] .xpClient = (XtPointer) pCommCD; 
pControlPD [1] .xpClient = (XtPointer) pCommCD; 
pControlPD [2] .xpClient = (XtPointer) pCommCD; 

wgControlPD = pulldownMenuCreate(wgMenuBar, "Control", MENU_PUSH, 

pCommCD->pControlPD, NULL); 
pOptionsPD = pCommCD->pOptionsPD = (menuItem*)malloc(sizeof (optionsPD) ) ; 
memcpy( pOptionsPD, optionsPD, sizeof ( optionsPD) ) ; 
pOptionsPD [0] .xpClient = (XtPointer) pCommCD; 
pOptionsPD [1] .xpClient = (XtPointer) pCommCD; 

wgOptionsPD = pulldownMenuCreate(wgMenuBar, "Options", MENU_CHECK, 

pCommCD->pOptionsPD, NULL); 
wgHelpPD = c reateHelpPD (wgMenuBa r ) ; 
return wgMenuBar; 



static void 
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collabAskJnRespCommTerminateCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackSt ruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 

defaultDialogCleanUpCB(wg, pCommCD->pDialogCD, cbs); 
XtDest royWidget (pCommCD->pDialogCD->wgDialog) ; 
XtFree( (char*)pCommCD->pDialogCD) ; 
if ( pCommCD->pOptionsPD) { 

XtFree( ( cha r*) pCommCD->pOptionsPD) ; 
pCommCD->pOptionsPD = NULL; 

} 

if ( pCommCD->pCont rolPD ) { 

XtFree( ( cha r*) pCommCD->pCont rolPD) ; 
pCommCD->pControlPD = NULL; 

} 

if (pCommCD->pRemTextCD != NULL){ 
XtFree( (char*)pCommCD->pRemTextCD) ; 
pCommCD->pRemTextCD = NULL; 

} 

if (pCommCD->pLocTextCD != NULL){ 
XtFree( (char*)pCommCD->pLocTextCD) ; 
pCommCD->pLocTextCD = NULL; 

} 

} 



static void 

collabAskJnRespCommAllowCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

{ 

char *str; 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
str = "Requested Join Allowed\n"; 

/* 

collabSendAskJnRespMessageOprn( pCommCD->smSIdTag, 
pCommCD->remSIdTag, str); 

*/ 

collabAskJnRespCommTerminateCB(wg, xpClient, cbs); 
collabAskJoinAllowOprn(pCommCD->smSIdTag, pCommCD->remSIdTag ) ; 



static void 

collabAskJnRespCommDenyCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 
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char *str; 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
str = "Requested Join Denied\n"; 

/* 

collabSendAskJnRespMessageOprn( pCommCD->smSIdTag, 
pCommCD->remSIdTag, str); 

*/ 

collabAskJnRespCommTerminateCB(wg, xpClient, cbs); 
collabAskJoinDenyOprn(pCommCD->smSIdTag, pCommCD->remSIdTag ) ; 



static void 

collabAskJnRespCommClearCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackStruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
clearMessageBuf f er( pCommCD->pLocTextCD) ; 

collabSendAskJnRespMessageOprn( pCommCD->smSIdTag, pCommCD->remSIdTag, "" ) 



static void 

collabAskJnRespCommTextCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackStruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
char *str; 

str = XmTextGetSt ring (wg ) ; 

collabSendAskJnRespMessageOprn( pCommCD->smSIdTag, pCommCD->remSIdTag, str 
); 

XtFree(str) ; 



setupCollabAskJnRespCommDialog (pCommCD) 
shaCommCntlData *pCommCD; 

{ 

static buttonltem dlgBtnsf] = { 

{"Allow", (XtPointer) DIAL0G_0K, collabAskJnRespCommAllowCB}, 
{"Deny", (XtPointer) DIALOG_CANCEL, collabAskJnRespCommDenyCB}, 
{"Help", (XtPointer) DIALOG_HELP, NULL}, 
{NULL} 



pCommCD->f nMenuBar = createCollAskJnRespCommMenuBar; 
pCommCD->f nTextCallback = collabAskJnRespCommTextCB; 
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pCommCD->f nCancelCallback = collabAskJnRespCommDenyCB; 

/* 

pCommCD->fBehave = DIAL0G_AUT0 LOWER; 

pCommCD->iDelay = 60000; 

*/ 

pCommCD->pDlgBtns = dlgBtns; 
createShast raCommDialog (pCommCD) ; 

} 



static Widget 

createCollAskJoinCommMenuBar(wgParent, sName, pCommCD, argList) 
Widget wgParent; 
char *sName; 

shaCommCntlData *pCommCD; 
XtVarArgsList argList; 

{ 

Widget wgMenuBar, wgControlPD, wgOptionsPD, wgHelpPD; 

static menultem controlPD [] = { 

{"Clear", (XtPointer) NULL, False, collabAskJoinCommClearCB}, 
{"Dismiss", (XtPointer) NULL, False, collabAskJoinCommDismissCB}, 
{"Close", (XtPointer) NULL, False, collabAskJoinCommTerminateCB}, 
{NULL} 

}; 

static menultem optionsPD [] = { 

{"Comm. Panel", (XtPointer) NULL, False, NULL}, 
{NULL} 

}; 

menultem *pControlPD, *pOptionsPD; 
Arg args[8]; 
int n; 

n = 0; 

XtSetArg(args [n] , XmNrightAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNlef tAttachment, XmATTACH_FORM) ; 
n++; 

XtSetArg(args [n] , XmNtopAttachment, XmATTACH_FORM) ; 
n++; 

wgMenuBar = XmCreateMenuBar(wgParent, sName, args, n); 

pControlPD = pCommCD->pCont rolPD = (menuItem*)malloc(sizeof (controlPD) ) ; 
memcpy(pControlPD, controlPD, sizeof ( cont rolPD) ) ; 
pControlPD [0] .xpClient = (XtPointer) pCommCD; 
pControlPD [1] .xpClient = (XtPointer) pCommCD; 
pControlPD [2] .xpClient = (XtPointer) pCommCD; 

wgControlPD = pulldownMenuCreate(wgMenuBar, "Control", MENU_PUSH, 

pCommCD->pControlPD, NULL); 
pOptionsPD = pCommCD->pOptionsPD = (menuItem*)malloc(sizeof (optionsPD) ) ; 
memcpy( pOptionsPD, optionsPD, sizeof ( optionsPD) ) ; 
pOptionsPD [0] .xpClient = (XtPointer) pCommCD; 
pOptionsPD [1] .xpClient = (XtPointer) pCommCD; 
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wgOptionsPD = pulldownMenuCreate(wgMenuBar, "Options", MENU_CHECK, 

pCommCD->pOptionsPD, NULL); 
wgHelpPD = c reateHelpPD (wgMenuBa r) ; 
return wgMenuBar; 

} 



static void 

collabAskJoinCommDismissCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 

def aultDialogCancelCB(wg, (XtPointer) pCommCD->pDialogCD, cbs); 

} 



static void 

collabAskJoinCommTerminateCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmPushButtonCallbackStruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 

defaultDialogCleanUpCB(wg, pCommCD->pDialogCD, cbs); 
XtDest royWidget ( pCommCD->pDialogCD->wgDialog ) ; 
XtFree( (char*)pCommCD->pDialogCD) ; 
if ( pCommCD->pOptionsPD) { 

XtFree( ( cha r*) pCommCD->pOptionsPD) ; 
pCommCD->pOptionsPD = NULL; 

} 

if ( pCommCD->pCont rolPD ) { 

XtFree( ( cha r*) pCommCD->pCont rolPD) ; 
pCommCD->pControlPD = NULL; 

} 

if (pCommCD->pRemTextCD != NULL){ 
XtFree( (char*)pCommCD->pRemTextCD) ; 
pCommCD->pRemTextCD = NULL; 

} 

if (pCommCD->pLocTextCD != NULL){ 
XtFree( (char*)pCommCD->pLocTextCD) ; 
pCommCD->pLocTextCD = NULL; 

} 

collabDeleteAskJoinPanelOprn ( pCommCD->smSIdTag ) ; 

} 

static void 

collabAskJoinCommClearCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
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XmAnyCallbackSt ruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 

clearMessageBuf f er( pCommCD->pLocTextCD) ; 
collabSendAskJoinMessageOprn(pCommCD->smSIdTag, "") ; 

} 

static void 

collabAskJoinCommTextCB(wg, xpClient, cbs) 
Widget wg; 
XtPointer xpClient; 
XmAnyCallbackSt ruct *cbs; 

{ 

shaCommCntlData *pCommCD = ( shaCommCntlData*)xpClient ; 
char *str; 

str = XmTextGetString(wg) ; 

collabSendAskJoinMessageOprn(pCommCD->smSIdTag, str) ; 
XtFree(str) ; 

} 

void 

setupCollabAskJoinCommDialog (pCommCD) 
shaCommCntlData *pCommCD; 

{ 

static buttonltem dlgBtnsf] = { 

{"Dismiss", (XtPointer) DIAL0G_0K, collabAskJoinCommDismissCB}, 
{"Close", (XtPointer) DIALOG_CANCEL, collabAskJoinCommTerminateCB}, 
{"Help", (XtPointer) DIALOG_HELP, NULL}, 
{NULL} 

}; 

pCommCD->f nMenuBar = createCollAskJoinCommMenuBar; 
pCommCD->f nTextCallback = collabAskJoinCommTextCB; 

pCommCD->pDlgBtns = dlgBtns; 
createShast raCommDialog (pCommCD) ; 

} 



/* 

* Function — 
*/ 
void 

showCollablnf o( s) 
char *s; 

{ 

if ( collabMsgBuf Cntl . wgText && f DebugTrace) { 
wprintf (&collabMsgBufCntl,"%s", s) ; 

} 

} 
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void 

collabUtilPopupMessage(msg) 
char *msg; 

{ 

static dialogCntlData infoDlgCD; 



showCollablnf o(msg) ; 

if (infoDlgCD.wgDialog == NULL){ 

infoDlgCD.f Flags = DIAL0G_0K; 

infoDlgCD.f Behave = DIAL0G_AUT0 LOWER; 

infoDlgCD. iDelay = 5000; 

inf oDlgCD. sName = "Session Information"; 

infoDlgCD. sMessage = "Yo, User Dude!\nThis is, like, cool!!" 

createlnf ormationDialog ( pFrontAppData->wgTop, "inf oDialog" , 
&infoDlgCD, NULL); 

} 

defaultDialogPopupMessage(&infoDlgCD, msg) ; 

} 

static void 

collabSetPermsDialogPopup(wg, xpClient, xpCall) 
Widget wg; 

XtPointer xpClient, xpCall; 



{ 



} 



static dialogCntlData permDlgCD; 

Widget wgPermTglRC; 

static toggleltem permTgls [] = { 

{"Access", (XtPointer)CollabPerm_ACCESS, True, collabSetPermModeCB}, 
{"Browse", (XtPointer)CollabPerm_BROWSE, True, collabSetPermModeCB}, 
{"Modify", (XtPointer)CollabPerm_MODIFY, True, collabSetPermModeCB}, 
{"Copy", (XtPointer)CollabPerm_COPY, False, collabSetPermModeCB}, 
{"Grant", (XtPointer) CollabPerm_GRANT, False, collabSetPermModeCB}, 
{NULL} 

}; 

if (permDlgCD. wgDialog == NULL){ 

permDlgCD.f Flags = DIAL0G_0K | DIALOG_CANCEL | DIALOG_HELP; 
permDlgCD. fMode = XmDIALOG_APPLICATION_MODAL; 
permDlgCD. sName = "Session Permissions"; 
permDlgCD. sMessage = "Set Session Permissions"; 
permDlgCD. xpClient = xpClient; 
permDlgCD. fnCallback = collabSetPermsCB; 

createTemplateDialog (wgCollabShell, "permDialog" , &permDlgCD, NULL); 

wgPermTglRC = togglesCreate(permDlgCD. wgDialog, "permTgls", 

TGL_CHECK, XmHORIZONTAL , permTgls, NULL); 
XtManageChild(wgPermTglRC) ; 

} 

def aultDialogPopup(&permDlgCD) ; 
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collabCheckPermsDialogPopup(wg, xpClient, xpCall) 
Widget wg; 

XtPointer xpClient, xpCall; 

{ 

static dialogCntlData permDlgCD; 

Widget wgPermTglRC; 

char *str, msgBuf [128] ; 

static toggleltem permTgls [] = { 

{"Access", (XtPointer)CollabPerm_ACCESS, False, NULL}, 
{"Browse", (XtPointer)CollabPerm_BROWSE, False, NULL}, 
{"Modify", (XtPointer)CollabPerm_MODIFY, False, NULL}, 
{"Copy", (XtPointer)CollabPerm_COPY, False, NULL}, 
{"Grant", (XtPointer) CollabPerm_GRANT, False, NULL}, 
{NULL} 

}; 

if (permDlgCD. wgDialog == NULL){ 

permDlgCD.f Flags = DIAL0G_0K | DIALOG_HELP; 
permDlgCD. sName = "Session Permissions"; 
permDlgCD. sMessage = "Session Permissions"; 
permDlgCD. xpClient = xpClient; 
permDlgCD. fnCallback = collabSetPermsCB; 
permDlgCD.f Behave = DIAL0G_AUT0 LOWER; 
permDlgCD. iDelay = 10000; 

createTemplateDialog (wgCollabShell, "permDialog" , &permDlgCD, NULL); 

wgPermTglRC = togglesCreate(permDlgCD. wgDialog, "permTgls", 

TGL_CHECK, XmHORIZONTAL , permTgls, NULL); 
XtManageChild(wgPermTglRC) ; 

} 

/*set tgl values from flags, name from tag*/ 
str = "who?"; 

sprintf (msgBuf , "Session Permissions for - %s", str); 
defaultDialogPopupMessage(&permDlgCD, msgBuf) ; 



static void 

collabGenChooseOneSetup(wg, pOptCD) 
Widget wg; 
optChooseCntlData *pOptCD; 

{ 

static String asDeff] = {NULL}; 
static optChooseCntlData *pChooseOneCD; 

pChooseOneCD = pOptCD; 

if (pcoCollab == NULL) { 

pcoCollab = chooseOneCreate(asDef , coNoInitialHighlight, 
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wg, genCntlChooseCOCB, (XtPointer) & pChooseOneCD, wg, 
"Choose Collab", 200, NULL); 

} 

} 

static void 

collabGenChooseOneCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient; 
XtPointer xpCall; 

{ 

char **sbNames; 

collabGenChooseOneSetup(wg, (optChooseCntlData *) xpClient); 
sbNames = getCollabNameList (0) ; 

chooseOneChangeList (pcoCollab, sbNames, coNoInitialHighlight ) ; 
if (sbNames) { 

strListDestroy(sbNames) ; 

} 

chooseOneMobExec(pcoCollab, wg); 



static void 

systemGenChooseOneSetup(wg, pOptCD) 
Widget wg; 
optChooseCntlData *pOptCD; 

{ 

static String asDeff] = {NULL}; 
static optChooseCntlData *pChooseOneCD; 

pChooseOneCD = pOptCD; 

if (pcoSystems == NULL) { 

pcoSystems = chooseOneCreate(asDef , coNoInitialHighlight, 

wg, genCntlChooseCOCB, (XtPointer) & pChooseOneCD, wg, 
"Choose System", 200, NULL); 

} 

} 

static void 

systemGenChooseOneCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient; 
XtPointer xpCall; 

{ 

char **sbNames; 

systemGenChooseOneSetup(wg, (optChooseCntlData *) xpClient); 
sbNames = getSystemNameList ( ) ; 

chooseOneChangeList (pcoSystems, sbNames, coNoInitialHighlight); 
if (sbNames) { 

strListDestroy(sbNames) ; 

} 
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chooseOneMobExec(pcoSystems, wg) ; 

} 

static void 

systemGenChooseManySetup(wg, pOptCD) 
Widget wg; 
multiChooseCntlData *pOptCD; 

{ 

static String asDeff] = {NULL}; 

static multiChooseCntlData *pChooseManyCD; 

pChooseManyCD = pOptCD; 

if (pcmSystems == NULL) { 

pcmSystems = chooseManyCreate(asDef , cmNoInitialHighlight, 

wg, genCntlChooseCOCB, (XtPointer) & pChooseManyCD, wg, 
"Choose Systems", 200); 

} 

} 

static void 

systemGenChooseManyCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient; 
XtPointer xpCall; 

{ 

char **sbNames; 

systemGenChooseManySetup(wg, (multiChooseCntlData *) xpClient); 
sbNames = getSystemNameList ( ) ; 

chooseManyChangeList(pcmSystems, sbNames, cmNoInitialHighlight) ; 
if (sbNames) { 

strListDestroy(sbNames) ; 

} 

chooseManyMobExec(pcmSystems, wg) ; 

} 

static void 

sesMgrGenChooseOneSetup(wg, pOptCD) 
Widget wg; 
optChooseCntlData *pOptCD; 

{ 

static String asDeff] = {NULL}; 
static optChooseCntlData *pChooseOneCD; 

pChooseOneCD = pOptCD; 

if (pcoSesMgrs == NULL) { 

pcoSesMgrs = chooseOneCreate(asDef , coNoInitialHighlight, 

wg, genCntlChooseCOCB, (XtPointer) & pChooseOneCD, wg, 
"Choose SesMgr", 200, NULL); 

} 

} 
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static void 

sesMgrGenChooseOneCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient; 
XtPointer xpCall; 

{ 

char **sbNames; 

sesMgrGenChooseOneSetup(wg, (optChooseCntlData *) xpClient); 
sbNames = getSesMg rNameList ( ) ; 

chooseOneChangeList (pcoSesMgrs, sbNames, coNoInitialHighlight ) ; 
if (sbNames) { 

st rl_istDestroy( sbNames) ; 

} 

chooseOneMobExec(pcoSesMgrs, wg) ; 



static void 

collabFrontGenChooseOneSetup(wg, pOptCD) 
Widget wg; 
optChooseCntlData *pOptCD; 

{ 

static String asDeff] = {NULL}; 
static optChooseCntlData *pChooseOneCD; 

pChooseOneCD = pOptCD; 

if (pcoCollabFronts == NULL) { 

pcoCollabFronts = chooseOneCreate(asDef , coNoInitialHighlight, 

wg, genCntlChooseCOCB, (XtPointer) & pChooseOneCD, wg 

"Choose Collab Front", 200, NULL); 

} 

} 

static void 

collabFrontGenChooseOneCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient; 
XtPointer xpCall; 

{ 

char **sbNames; 

collabFrontGenChooseOneSetup(wg, (optChooseCntlData *) xpClient); 
sbNames = getCollabFrontNameList (0) ; 

chooseOneChangeList ( pcoCollabFronts, sbNames, coNoInitialHighlight) ; 
if (sbNames) { 

strListDestroy(sbNames) ; 

} 

chooseOneMobExec(pcoCollabFronts, wg) ; 
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static void 

collabFrontGenChooseManySetup(wg, pOptCD) 
Widget wg; 
multiChooseCntlData *pOptCD; 

{ 

static String asDeff] = {NULL}; 

static multiChooseCntlData *pChooseManyCD; 

pChooseManyCD = pOptCD; 

if (pcmCollabFronts == NULL) { 

pcmCollabFronts = chooseManyCreate(asDef , cmNoInitialHighlight, 

wg, genCntlChooseCOCB, (XtPointer) & pChooseManyCD, 
wg, 

"Choose Systems", 200) ; 

} 

} 

static void 

collabFrontGenChooseManyCB(wg, xpClient, xpCall) 
Widget wg; 
XtPointer xpClient; 
XtPointer xpCall; 

{ 

char **sbNames; 

collabFrontGenChooseManySetup(wg, (multiChooseCntlData *) xpClient); 
sbNames = getCollabFrontNameList (0) ; 

chooseManyChangeList (pcmCollabFronts, sbNames, cmNoInitialHighlight) ; 
if (sbNames) { 

strListDestroy(sbNames) ; 

} 

chooseManyMobExec(pcmCollabFronts, wg) ; 



static void 

collabUtilPopupConf irm(wg, pGenCD, sMsg) 
Widget wg; 
genCntlData *pGenCD; 
char *sMsg; 

{ 

static dialogCntlData dialogCD; 
XtVarArgsList argList; 
XmString tmpl, tmp2; 

if (dialogCD. wgDialog == NULL) { 

dialogCD. f Flags = DIAL0G_0K | DIALOG_CANCEL; 
dialogCD. fMode = XmDIALOG_APPLICATION_MODAL; 
dialogCD. sMessage = sMsg; 
dialogCD. sName = "Confirm"; 
dialogCD. xpClient = pGenCD->xpClient ; 
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dialogCD. f nCallback = pGenCD->f nCallback; 
tmpl = XmStringCreateSimpleC'Yes") ; 
tmp2 = XmStringCreateSimpleC'No") ; 
argList = XtVaCreateArgs List (NULL, 

XmNokLabelString, tmpl, 

XmNcancelLabelSt ring, tmp2, 

XmNdefaultButtonType, XmDIALOG_CANCEL_BUTTON , 
NULL) ; 

createQuestionDialog(wg, "conf irmDialog" , &dialogCD, argList); 
XtFree(argList) ; 
XmSt ring Free (tmpl) ; 
XmStringFree(tmp2) ; 

} 

defaultDialogPopupMessage(&dialogCD, sMsg) ; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <stdlib.h> 
#include <string.h> 
#include <sys/errno. h> 
#include <netdb.h> 
#include <malloc.h> 
#include <sys/types . h> 
#include <unistd.h> 
#include <pwd.h> 

#ifdef SHASTRA4SUN5 
#include <sys/systeminf o. h> 
#endif 

#include <X11/Int rinsic . h> 
#include <X11/St ringDef s . h> 
#include <Xm/Xm.h> 

#include <shast ra/shast ra . h> 
#include <shast ra/shast raSt at eDefs . h> 

#in elude <shast ra/datacomm/shast raDataH . h> 
#in elude <shast ra/datacomm/shast raldH. h> 

#in elude <shast ra/network/hostMg r . h> 
#in elude <shast ra/ net work/ server. h> 
#in elude <shast ra/network/mplex. h> 

#include <shast ra/shautils/shautils . h> 
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#in elude <shastra/shautils/kernelFronts.h> 

#in elude <shast ra/kernel/kernel_server. h> 

#include <shast ra/f ront/f rontP. h> 
#include <shast ra/f ront/f ront . h> 
#include <shast ra/f ront/f ront_client P. h> 
#include <shast ra/f ront/f ront_client . h> 
#include <shast ra/f ront/f ront St ate. h> 
#in elude <shast ra/f ront/f ront AppRes P. h> 

/*static shaFrontAppData f rontAppData;*/ 
shaFrontAppData *pFrontAppData = &f rontAppData; 
static shastrald f rontShast raid; 
shastrald *pFrontSId = &f rontShast raid ; 

static void getFrontShast raldlnf o ( ProtO ( void ) ) ; 
static char *GetShast raBaseDir ( ) ; 

static void 

shast raSetupDef au It Re sources (pAppData) 
shaFrontAppData *pAppData; 

{ 

if(pAppData == NULL){ 
return; 

} 

/*pAppData->sDirBase = DEFSHASTRABASEDIR; */ 

pAppData->sDirBase = GetShast raBaseDir () ; 
pAppData->sDirDef s = DEFSHASTRADEFSDIR; 
pAppData->sDirData = DEFSHASTRADATADIR; 
pAppData->sDirBin = DEFSHASTRABINDIR; 
pAppData->sDirHelp = DEFSHASTRAHELPDIR; 

pAppData->sFileHome = DEFSHASTRAHOMEFILE; 
pAppData->sFileLog = DEFSHASTRALOGFILE; 
pAppData->sFileHosts = DEFSHASTRAHOSTSFILE; 
pAppData->sFileUsers = DEFSHASTRAUSERSFILE; 
pAppData->sFileApps = DEFSHASTRAAPPSFILE; 
pAppData->sFileHelp = DEFSHASTRAHELPFILE; 

pAppData->sLocStart = DEFSHASTRASTARTLOCAL; 
pAppData->sRemStart = DEFSHASTRASTARTREMOTE; 

pAppData->sPasswd = DEFSHASTRAPASSWD; 

if (pAppData->fNoGUI){ 

pAppData->f Connect = True; 

} 

else{ 

pAppData->f Connect = False; 

} 

} 
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void 

s ha stra Front Set upApplResDir( sDir) 
char *sDir; 

{ 

char sbName [1024] , *sName; 

if(sDir == NULL){ 

sName = resolveNameFromBase ( pFrontAppData->sDirBase, 
pFrontAppData->sDirDef s ) ; 

} 

else{ 

sName = resolveNameFrom2Bases ( pFrontAppData->sDirBase, 
pFrontAppData->sDirDef s, 
sDir) ; 

} 

fprintf (stderr,"getenv( )->%s\n",getenv("XAPPLRESDIR") ) ; 
sprintf ( sbName, "XAPPLRESDIR=%s" , sName) ; 
f print f ( stder r, "putenv( )->%s\n" , sbName) ; 
putenv(sbName) ; 

fprintf (stder r,"getenv( )->%s\n",getenv("XAPPLRESDIR") ) ; 



void 

shastraFrontSetup(argc, argv, sFrName, wgParent, iPort) 
int argc; 
char **argv; 
char *sFrName; 
Widget wgParent; 
int iPort; 

{ 

int iStatus; 

int i; 

int iSocket; 

extern int errno; 

char *sName; 

static XrmOptionDescRec xrmOptionsf] = { 
DEFSHASTRAXRMOPTIONS 

}; 

pFrontAppData = &f rontAppData; 

pFrontAppData->pSIdSelf = pFrontSId = &f rontShast raid; 
pFrontAppData->wgTop = wgParent; 
pFrontAppData->argc = argc; 
pFrontAppData->argv = argv; 
pFrontAppData->sName = sFrName; 
pFrontAppData->iSvcPort = iPort; 
pFrontAppData->sbMsgBuf = malloc ( 1024) ; 
pFrontAppData->fNoGUI = (wgParent == NULL); 

if(wgParent != NULL){ 

set upResourceEd it Handler (wgParent) ; 
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XtVaGetApplicationResources (wg Pa rent, 

(XtPointer)&f rontAppData, 

xrmResources, XtNumber(xrmResources) , 

/*hardcoded non-overridable app resources*/ 

XshaNhelp, False, 

XshaNusePixmap, False, 

XshaNservicePort, iPort, 

NULL) ; 

/*sanity checking of resources*/ 
} 

else{ 

/*provide some way of setting resources*/ 
shast raSetupDefau It Resources ( pF rontAppData) ; 

} 

/* 

shast ra Front Set upApplResDir ( ) ; 

*/ 

getFrontShastraIdInfo( ) ; 

mplexRegisterErrHandler(closedChannelCleanupHandler) ; 

registerlnit ( ) ; 
kernFrontsInit ( ) ; 
sesmFrontsInit ( ) ; 
clientHostsInit ( ) ; 

if (pFrontAppData->f Connect ) { 

iStatus = f rontKernelConnectReq(pFrontSId) ; 
for (i = 0; i < 3; i++) { 

if (iStatus == -1){ 
if(errno == ECONNREFUSED) { 

sName = resolveNameFrom2Bases ( pFrontAppData->sDirBase, 
pFrontAppData->sDirBin, 
pFrontAppData->sLocStart) ; 
startShastraKerneKpFrontSId, sName) ; 
sleep(5) ; 

iStatus = f rontKernelConnectReq(pFrontSId) ; 

} 

else{ 

fprintf (stderr, "Can't start kernel.. Operating standalone ! \n" ) ; 

} 

} 

} 

} 

clSvrSetSelfModeOprn( ) ; 

} 

void 

s ha s tra Front Set u pi con ( s File) 
char *sFile; 

{ 
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Pixmap xpmlconBM; 

char sbName [1024] , *sName; 

Pixel fg, bg; 

sName = resolveNameFrom2Bases ( pFrontAppData->sDirBase, 

pFrontAppData->sDirDef s, sFile); 
xpmlconBM = convertStringToPixmap(pFrontAppData->wgTop, sName); 

if (xpmlconBM != XmUNSPECIFIED_PIXMAP) { 

XtVaSetValues ( pFrontAppData->wgTop, XmNiconPixmap, xpmlconBM, NULL); 

} 

/*extend to pixmaps, iconWIndow etc if/when*/ 



void 

shast ra Front Set uplmage(wg, sFile) 
Widget wg; 
char *sFile; 

{ 

Pixmap xpmBM ; 
char *sName; 

sName = resolveNameFrom2Bases ( pFrontAppData->sDirBase, 

pFrontAppData->sDirDef s, sFile); 
xpmBM = convertStringToPixmap(wg, sName); 
if (xpmBM != XmUNSPECIFIED_PIXMAP) { 

XtVaSetValues(wg, XmNlabelPixmap, xpmBM, NULL); 

} 



static void 

getFrontShastraIdInfo( ) 
{ 

shastrald *pSId; 
char *name, nmBuf[256]; 
struct hostent *pHostEnt; 
Display *pDisplay; 
uid_t auid; 
struct passwd *apass; 
char *tv; 

pSId = pFrontAppData->pSIdSelf ; 

if (pFrontAppData->wgTop != NULL){ 
pDisplay = XtDisplay ( pFrontAppData->wgTop) ; 
name = XDisplaySt ring ( pDisplay) ; 
if(name == NULL){ 

pe rror( "XDisplaySt ring ( )") ; 

strcpy(nmBuf , "anonymous . cs . purdue. edu : 0" ) ; 

} 
} 

else{ 

name = "no-display"; 
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} 

pSId->nmDisplay = strdup(name) ; 

#ifdef SHASTRA4SUN5 

if (sysinfo(SI_HOSTNAME,nmBuf , sizeof ( nmBuf ) ) == -1) { 
perTor("sysinfo( ) " ) ; 

strcpy (nmBuf, "anonymous.cs.purdue.edu") ; 

} 

#else 

if (gethostname(nmBuf , sizeof (nmBuf ) ) != 0) { 
pe rTor( "get host name ( )") ; 
st rcpy( nmBuf , "anonymous.cs.purdue.edu") ; 

} 

#endif 

pSId->nmHost = strdup(nmBuf ) ; 

if ((pHostEnt = gethostbyname(pSId->nmHost) ) == NULL) { 
pe r ror( "get host by name ( ) " ) ; 

} 

else{ 

unsigned int temp; 

memcpy(&temp, &pHostEnt->h_add r_list [0] [0] , 4); 
pSId->lIPAddr = ntohl(temp); 

/*pSId->lIPAddr = *(unsigned long *) &pHostEnt->h_add r_list [0] [0] ;*/ 

} 

#ifndef DEBUG 

printf("%lu (%lx) — %s\n", pSId->lIPAdd r, 
pSId->lIPAddr, ipadd r2st r ( pSId->lIPAdd r) ) ; 
#endif /* DEBUG */ 

pSId->iProcId = getpidO; 

pSId->iPort = pFrontAppData->iSvcPort ; 

pSId->lSIDTag = ( pSId->HPAdd r « 16) + pSId->iProcId ; 
#ifdef DEBUG 

fprintf (stdout, "SIDTag: %lu\n", pSId->lSIDTag ) ; 
#endif /* DEBUG */ 

pSId->dLoadAvg = 0.0; 
#ifdef DEBUG 

fprintf ( stdout, "Load : %lf\n", pSId->dLoadAvg ) ; 
#endif /* DEBUG */ 

if ( (pFrontAppData->sName != NULL) && ( pFrontAppData->sName [0] != '\0')){ 
pSId->nmApplicn = pFrontAppData->sName; 

} 

else if (pFrontAppData->argv [0] ){ 

if ((name = st rrch r ( pFrontAppData->a rgv [0] , '/')) == NULL){ 
name = pFrontAppData->argv [0] ; 

} 

else{ 
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name++; 

} 

pSId->nmApplicn = strdup(name) ; 

} 

else{ 

pSId->nmApplicn = strdupC'anonymous" ) ; 

} 

auid = getuid ( ) ; 

apass = getpwuid(auid) ; 

st rcpy( nmBuf , apass->pw_name) ; 

if (tv =getenv ( "WEBNAME" ) ) 

{ 

pSId->webname = strdup(tv); 
pSId->nmUser = strdup(tv); 

} 

else 
{ 

pSId->webname = strdup(nmBuf ) ; 
pSId->nmUser = st rdup ( nmBuf ) ; 

} 

if ( pFrontAppData->sPasswd ) { 

pSId->nmPasswd = st rdup ( pFrontAppData->sPasswd ) ; 

} 

else{ 

pSId->nmPasswd = strdup(DEFSHASTRAPASSWD) ; 

} 

if (pFrontAppData->iDbgl_evel) { 
outputId(stdout, pSId); 

} 

name = pSId2Str(pSId, PSIDSHOWALL) ; 
printf ( "Shast raid : %s\n", name); 
if(name != NULL){ 
f ree( name) ; 

} 



shastrald * 
getMyFrontShastraId( ) 
{ 

if (pFrontAppData){ 

return pFrontAppData->pSIdSelf ; 

} 

else{ 

return NULL; 

} 

} 

shaFrontAppData * 
getMyFrontAppData( ) 
{ 
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return pFrontAppData; 

} 



void (*clientControlDataFunc) (Prot2(int, shaCmdData**) ) ; 

void (*clientOperatorFunc) ( Protl ( hostData *)); 

void (*clientConnectFunc) ( Protl ( hostData *)); 

void (*clientSelectFunc) ( Protl ( hostData *)) ; 

void (*clientTerminateFunc) ( Protl ( hostData *) ) ; 

void 

registerClientCont rolDataFunc(func) 
void (*func) 0; 

{ 



clientCont rolDataFunc = func; 

} 

void 

registerClientTerminateFunc (f unc) 
void (*func) 0; 

{ 

clientTerminateFunc = func; 

} 



void 

reg is terClient Select Func (func) 
void (*func) 0; 

{ 

clientSelectFunc = func; 

} 

void 

reg is terClient Connect Func (func) 
void (*func) 0; 

{ 

clientConnectFunc = func; 

} 

void 

registerClientOperatorFunc( f unc) 
void (*func) 0; 

{ 

clientOperatorFunc = func; 

} 

void (*collabControlDataFunc) (Prot2(int, shaCmdData**)); 

void (*collabOperatorFunc) ( Protl ( hostData *) ) ; 

void (*collabSelectFunc) ( Protl ( hostData *)) ; 

void (*collabInitiateFunc) ( Protl ( hostData *) ) ; 

void (*collabTerminateFunc) ( Protl ( hostData *)); 

void (*collabJoinFunc) ( Protl ( hostData *)); 

void (*collabl_eaveFunc) ( Protl ( hostData *)); 

void (*collabRemoveFunc) ( Protl ( hostData *)); 
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void (*collabSetPermsFunc) ( Prot3 ( hostData *, shast raldTag *, unsigned long 
)); 

void (*collabGetPermsFunc) ( Prot3 ( hostData *, shast raldTag *, unsigned long 
)); 

void (*collabSetIxnModeFunc) ( Prot2 ( hostData *, unsigned long)); 

void (*collabGetIxnModeFunc) ( Prot2 ( hostData *, unsigned long)); 

void (*collabSetFormatFunc) ( Prot2 ( hostData *, unsigned long)); 

void (*collabGetFormatFunc) ( Prot2 ( hostData *, unsigned long)); 

void (*collabSetFloorModeFunc) ( Prot2 ( hostData *, unsigned long)); 

void (*collabGetFloorModeFunc) ( Prot2 ( hostData *, unsigned long)); 

void (*collabGrabTokenFunc) ( Prot2 ( hostData *, shastraldTag *)); 

void (*collabFreeTokenFunc) ( Prot2 ( hostData *, shastraldTag *)); 

void (*collabAskTokenFunc) ( Prot2 ( hostData *, shastraldTag *)); 

void (*collabTellTokenFunc) ( Prot2 ( hostData *, shastraldTag *)); 

void 

registerCollabCont rolDataFunc ( f unc) 
void (*func) (); 

collabControlDataFunc = func; 



void 

registerCollablnitiateFunc (func) 
void (*func) 0; 

collablnitiateFunc = func; 



void 

registerCollabTerminateFunc (f unc) 
void (*func) 0; 

collabTerminateFunc = func; 



void 

registerCollabSelect Func (func) 
void (*func) 0; 

collabSelectFunc = func; 



void 

registerCollabJoinFunc(f unc) 

void (*func) 0; 

{ 

collabJoinFunc = func; 

} 

void 

registerCollabl_eaveFunc(f unc) 

void (*func) 0; 
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{ 

collabLeaveFunc = func; 

} 

void 

reg isterCollabOpe rat orFunc( func) 
void (*func) 0; 

{ 

collabOperatorFunc = func; 

} 

void 

registerCollabRemoveFunc (func) 
void (*func) 0; 

{ 

collabRemoveFunc = func; 

} 

void 

reg is terCollabSet Perms Func ( func) 
void (*func) 0; 

{ 

collabSetPermsFunc = func; 

} 

void 

reg is terCollabGet Perms Func ( func) 
void (*func) 0; 

{ 

collabGetPermsFunc = func; 

} 

void 

registerCollabSetlxnModeFunc ( f unc ) 
void (*func) 0; 

{ 

collabSetlxnModeFunc = func; 

} 

void 

registerCollabGetIxnModeFunc(f unc) 
void (*func) 0; 

{ 

collabGetlxnModeFunc = func; 

} 

void 

reg is terCollabSet Format Func (func) 
void (*func) 0; 

{ 

collabSetFormatFunc = func; 

} 
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void 

registerCollabGetFormatFunc (f unc) 
void (*func) 0; 

{ 

collabGetFormatFunc = func; 

} 

void 

registerCollabSetFloorModeFunc(f unc) 
void (*func) 0; 

{ 

collabSetFloorModeFunc = func; 

} 

void 

registerCollabGetFloorModeFunc(f unc) 
void (*func) 0; 

{ 

collabGetFloorModeFunc = func; 

} 

void 

reg is terCollabGrabToken Func (func) 
void (*func) 0; 

{ 

collabGrabTokenFunc = func; 

} 

void 

reg is terCollabFreeToken Func (func) 
void (*func) 0; 

{ 

collabFreeTokenFunc = func; 

} 

void 

registerCollabAskTokenFunc (func) 
void (*func) 0; 

{ 

collabAskTokenFunc = func; 

} 

void 

reg is terCollabTellToken Func (func) 
void (*func) 0; 

{ 

collabTellTokenFunc = func; 

} 

void (*audioSta rtFunc ) ( Prot2 ( hostData *, shastraldTag *) ) ; 

void (*audioEndFunc) ( Prot2 ( hostData *, shastraldTag *)); 

void (*audioRecvMsgFunc) ( Prot3 ( hostData *, shastraldTag *, audioBite *)); 

void (*audioRecvFileFunc) ( Prot3 ( hostData *, shastraldTag *, char *)); 
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void (*audioSendFileFunc) ( Protl ( hostData *)); 
void (*audioSendMsgFunc) ( Protl ( hostData *)); 

void 

registerAudioStartFunc(f unc) 

void (*func) 0; 

audioStartFunc = func; 



void 

registerAudioEndFunc (func) 

void (*func) 0; 

audioEndFunc = func; 



void 

registerAudioRecvMsg Func (func) 
void (*func) 0; 

audioRecvMsgFunc = func; 



void 

registerAudioRecvFileFunc (func) 
void (*func) 0; 

audioRecvFileFunc = func; 



void 

reg is terAudioSend File Func (func) 
void (*func) 0; 

audioSendFileFunc = func; 



void 

reg isterAudioSendMsg Func (func) 
void (*func) 0; 

audioSendMsgFunc = func; 



void (*videoSta rtFunc ) ( Prot2 ( hostData *, shastraldTag *) ) ; 

void (*videoEndFunc) ( Prot2 ( hostData *, shastraldTag *)); 

void (*videoRecvMsgFunc) ( Prot3 ( hostData *, shastraldTag *, videolmg *)); 

void (*videoRecvFileFunc) ( Prot3 ( hostData *, shastraldTag *, char *)); 

void (*videoSendFileFunc) ( Protl ( hostData *)); 

void (*videoSendMsgFunc) ( Protl ( hostData *)); 

void 
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registerVideoStartFunc(f unc) 

void (*func) 0; 

{ 

videoStartFunc = func; 

} 

void 

reg isterVideoEnd Func ( func) 

void (*func) 0; 

{ 

videoEndFunc = func; 

} 

void 

reg isterVideoRecvMsg Func (func) 
void (*func) 0; 

{ 

videoRecvMsgFunc = func; 

} 

void 

registerVideoRecvFileFunc (func) 
void (*func) 0; 

{ 

videoRecvFileFunc = func; 

} 

void 

reg is terVideoSend File Func (func) 
void (*func) 0; 

{ 

videoSendFileFunc = func; 

} 

void 

reg isterVideoSendMsg Func (func) 
void (*func) 0; 

{ 

videoSendMsgFunc = func; 

} 

void (*textStartFunc) ( Prot2 ( hostData *, shast raldTag *)); 

void (*textEndFunc) ( Prot2 ( hostData *, shast raldTag *)); 

void (*textRecvMsgFunc) ( Prot3 ( hostData *, shastraldTag *, char *)); 

void (*textRecvFileFunc) ( Prot3 ( hostData *, shastraldTag *, char *)); 

void (*textSendFileFunc) ( Protl ( hostData *)); 

void (*textSendMsgFunc) ( Protl ( hostData *)); 

void 

registerTextSta rtFunc(func) 

void (*func) 0; 

{ 

textStartFunc = func; 



Page 13 of 19 



front. c 



7/5/1 1 1 1 :53 AM 



} 

void 

registerTextEndFunc(f unc) 

void (*func) 0; 

{ 

textEndFunc = func; 

} 

void 

registerTextRecvMsgFunc (func) 

void (*func) 0; 

{ 

textRecvMsgFunc = func; 

} 

void 

registerTextRecvFileFunc(f unc) 
void (*func) 0; 

{ 

textRecvFileFunc = func; 

} 

void 

registerText Send FileFunc (func) 
void (*func) 0; 

{ 

textSendFileFunc = func; 

} 

void 

reg is terTextSendMsg Func (func) 

void (*func) 0; 

{ 

textSendMsgFunc = func; 

} 

void (*pictStartFunc) ( Prot2 ( hostData *, shast raldTag *)); 
void (*pictEndFunc) ( Prot2 ( hostData *, shast raldTag *)); 

void (*pictRecvMsgFunc) ( Prot3 ( hostData *, shastraldTag *, pictPieces *)); 
void (*pictRecvFileFunc) ( Prot3 ( hostData *, shastraldTag *, char *)); 
void (*pictSendFileFunc) ( Protl ( hostData *)); 
void (*pictSendMsgFunc) ( Protl ( hostData *)); 

void 

registerPictSta rtFunc(func) 

void (*func) 0; 

{ 

pictStartFunc = func; 

} 

void 

reg is terPict End Func (func) 
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void (*func) 0; 

{ 

pictEndFunc = func; 

} 

void 

reg is terPictRecvMsg Func (func) 

void (*func) 0; 

{ 

pictRecvMsgFunc = func; 

} 

void 

registerPictRecvFileFunc (func) 
void (*func) 0; 

{ 

pictRecvFileFunc = func; 

} 

void 

reg isterPictSendFileFunc ( func) 
void (*func) 0; 

{ 

pictSendFileFunc = func; 

} 

void 

reg is terPictSendMsg Func (func) 

void (*func) 0; 

{ 

pictSendMsgFunc = func; 

} 

void (*xsCntlStartFunc) ( Prot2 ( hostData *, shast raldTag *)); 
void (*xsCntlEndFunc) ( Prot2 ( hostData *, shast raldTag *)); 
void (*xsCntlRecvMsgFunc) ( Prot3 ( hostData *, shastraldTag *, xsCntlDatas *) 
); 

void (*xsCntlRecvFileFunc) ( Prot3 ( hostData *, shastraldTag *, char *) ) ; 
void (*xsCntlSendFileFunc) ( Protl ( hostData *)) ; 
void (*xsCntlSendMsgFunc) ( Protl ( hostData *)); 

void 

reg isterXSCntlStart Func (func) 

void (*func) 0; 

{ 

xsCntlStartFunc = func; 

} 

void 

reg isterXSCntlEnd Func (func) 

void (*func) 0; 

{ 

xsCntlEndFunc = func; 
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} 

void 

registerXSCntlRecvMsgFunc(f unc) 
void (*func) 0; 

{ 

xsCntlRecvMsgFunc = func; 

} 

void 

registerXSCntlRecvFileFunc (func) 
void (*func) 0; 

{ 

xsCntlRecvFileFunc = func; 

} 

void 

registerXSCntlSendFileFunc( f unc) 
void (*func) 0; 

{ 

xsCntlSendFileFunc = func; 

} 

void 

registerXSCntlSendMsgFunc (func) 
void (*func) 0; 

{ 

xsCntlSendMsgFunc = func; 

} 

void (*polyStartFunc) ( Prot2 ( hostData *, shast raldTag *)); 
void (*polyEndFunc) ( Prot2 ( hostData *, shast raldTag *)); 

void (*polyRecvMsgFunc) ( Prot3 ( hostData *, shastraldTag *, ipimageData *)); 
void (*polyRecvFileFunc) ( Prot3 ( hostData *, shastraldTag *, char *)); 
void (*polySendFileFunc) ( Protl ( hostData *)); 
void (*polySendMsgFunc) ( Protl ( hostData *)); 

void 

registerPolyStart Func (func) 

void (*func) 0; 

{ 

polyStartFunc = func; 

} 

void 

registerPolyEndFunc (func) 

void (*func) 0; 

{ 

polyEndFunc = func; 

} 

void 

reg is terPolyRecvMsg Func (func) 
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void (*func) 0; 

{ 

polyRecvMsgFunc = func; 

} 

void 

registerPolyRecvFileFunc(f unc) 
void (*func) 0; 

{ 

polyRecvFileFunc = func; 

} 

void 

registerPolySendFileFunc (func) 
void (*func) 0; 

{ 

polySendFileFunc = func; 

} 

void 

reg is terPolySendMsg Func (func) 

void (*func) 0; 

{ 

polySendMsgFunc = func; 

} 

void (*pntrStartFunc) ( Prot2 ( hostData *, shast raldTag *)); 
void (*pntrEndFunc) ( Prot2 ( hostData *, shast raldTag *)); 

void (*pntrRecvMsgFunc) ( Prot3 ( hostData *, shastraldTag *, shaDoubles *)); 
void (*pntrRecvFileFunc) ( Prot3 ( hostData *, shastraldTag *, char *)); 
void (*pntrSendFileFunc) ( Protl ( hostData *)); 
void (*pntrSendMsgFunc) ( Protl ( hostData *)); 

void 

registerPnt rSta rtFunc(func) 

void (*func) 0; 

{ 

pnt rSta rtFunc = func; 

} 

void 

reg isterPntrEnd Func (func) 

void (*func) 0; 

{ 

pntrEndFunc = func; 

} 

void 

registerPnt rRecvMsgFunc (func) 

void (*func) 0; 

{ 

pntrRecvMsgFunc = func; 

} 
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void 

registerPnt rRecvFileFunc ( f unc) 
void (*func) 0; 

{ 

pntrRecvFileFunc = func; 

} 

void 

registerPnt rSendFileFunc (func) 
void (*func) 0; 

{ 

pnt rSendFileFunc = func; 

} 

void 

reg is terPnt rSendMsg Func (func) 

void (*func) 0; 

{ 

pntrSendMsgFunc = func; 

} 

void (*cursorStartFunc) ( Prot2 ( hostData *, shast raldTag *)); 

void (*cursorEndFunc) ( Prot2 ( hostData *, shast raldTag *)); 

void (*cursorRecvMsgFunc) ( Prot3 ( hostData *, shastraldTag *, shaDoubles *)) 

void (*cursorRecvFileFunc) ( Prot3 ( hostData *, shastraldTag *, char *) ) ; 
void (*cursorSendFileFunc) ( Protl ( hostData *) ) ; 
void (*cursorSendMsgFunc) ( Protl ( hostData *)); 

void 

registerCursorStartFunc(f unc) 

void (*func) 0; 

{ 

cursorStartFunc = func; 

} 

void 

reg isterCursorEnd Func (f unc) 

void (*func) 0; 

{ 

cursorEndFunc = func; 

} 

void 

registerCursorRecvMsgFunc(f unc) 
void (*func) 0; 

{ 

cu rsorRecvMsgFunc = func; 

} 

void 

reg iste rCu r so rRecvFileFunc ( func) 



Page 18 of 19 



front. c 



7/5/1 1 1 1 :53 AM 



void (*func) 0; 

{ 

cu rsorRecvFileFunc = func; 

} 

void 

registerCursorSendFileFunc( f unc) 
void (*func) 0; 

{ 

cursorSendFileFunc = func; 

} 

void 

registerCursorSendMsg Func (func) 
void (*func) 0; 

{ 

cursorSendMsgFunc = func; 

} 

static char *GetShast raBaseDir( ) 
{ 

char *dname; 

if (dname = getenv ( "SHASTRADIR" ) ) 
{ 

return (dname) ; 

} 

else 
{ 

dname = strdup(DEFSHASTRABASEDIR) ; 

} 

return(dname) ; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <sys/errno. h> 
#include <netdb.h> 

#include <shast ra/shast ra . h> 

#include <shast ra/utils/list . h> 

#include <shast ra/datacomm/shast raldH. h> 
#in elude <shast ra/datacomm/shast raldTagH. h> 
#in elude <shast ra/datacomm/shast raDataH . h> 

#in elude <shastra/shautils/shautils.h> 
#in elude <shastra/shautils/kernelFrontsP.h> 
#in elude <shastra/shautils/kernelFronts.h> 
#include <shast ra/ s ha ut ils/ sesMg r Front s . h> 
#include <shast ra/ s ha ut ils/ client Hosts . h> 

#include <shast ra/network/ server. h> 
#include <shast ra/network/mplex. h> 
#include <shast ra/network/hostMgr . h> 

#in elude <shastra/front/shastraCntl.h> 
#in elude <shast ra/f ront/clSvrCntl . h> 
#in elude <shastra/front/frontP.h> 
#include <shast ra/f ront/f ront . h> 
#in elude <shast ra/f ront/f ront St ate. h> 
#include <shast ra/f ront/f ront_client . h> 
#include <shast ra/f ront/f ront_client P. h> 
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#in elude <shastra/front/frontCollClient.h> 
shaCmdData f rontCmdData; 

cmCommand f rontCmdTab [] = FRONT_CLIENTCMDS; 

#define FRONT_NCMDS ( sizeof ( f rontCmdTab ) /sizeof ( cmCommand ) ) 

int frontNCmds = FRONT_NCMDS; 

cmCommand f rontlnCmdTab [] = FRONT_CLIENTINCMDS; 

#define FRONT_INNCMDS (sizeof (frontInCmdTab)/sizeof (cmCommand) ) 

int frontlnNCmds = FRONT_INNCMDS; 

hostData *pHostKernel; 

#define checkConn() \ 

if ( (pHostKernel == NULL) || \ 
(pHostKernel->fStatus == shaError)) \ 

{ \ 

fprintf ( stderr, "Connection to Shastra is bad!\n"); \ 
return -1; \ 

} 

#define sendReqString(s, arg) \ 

if (hostSendQueuedRequest(pHostKernel, s, arg) == -1) \ 

{ \ 

pHostKernel->f Status = shaError; \ 

closedChannelCleanupHandler(pHostKernel->fdSocket) ; \ 

fprintf ( stderr, "Error in Sending Shastra Operation Request\n"); \ 

return -1; \ 

} 

#define sendDataSt ring ( s ) \ 

if (cmSendString(pHostKernel->fdSocket, s) == -1) \ 

{ \ 

pHostKernel->f Status = shaError; \ 

closedChannelCleanupHandler(pHostKernel->fdSocket) ; \ 

fprintf ( stderr, "Error in Sending Shastra Operation Data\n"); \ 

return -1; \ 

} 



#define Shast raldln ( f iledesc, pShald) \ 

if (shastraIdIn(pHostKernel->fdSocket, pShald) == -1) \ 

U 

pHostKernel->f Status = shaError;\ 

closedChannelCleanupHandler(pHostKernel->f dSocket ) ; \ 
fprintf ( stderr, "Error Receiving SID from Kernel\n");\ 
return -1;\ 

} 

#define Shast raldOut ( f iledesc, pShaId)\ 

if (shastraIdOut(pHostKernel->fdSocket, pShald) == -1)\ 

{\ 
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pHostKernel->f Status = shaError;\ 

closedChannelCleanupHandler(pHostKernel->f dSocket ) ; \ 
f printf ( stderr, "Error Sending SID to Kernel\n");\ 
return -1;\ 

} 

#define Shast raldsln ( f iledesc, pShaIds)\ 

if (shastraIdsIn(pHostKernel->fdSocket, pShalds) == -1)\ 

{\ 

pHostKernel->f Status = shaError;\ 

closedChannelCleanupHandler(pHostKernel->f dSocket ) ; \ 
f printf ( stderr, "Error Receiving SIDs from Kernel\n");\ 
return -1;\ 

} 

#define Shast raldsOut ( f iledesc, pShaIds)\ 

if (shastraIdsOut(pHostKernel->fdSocket, pShalds) == -1)\ 

{\ 

pHostKernel->f Status = shaError;\ 

closedChannelCleanupHandler(pHostKernel->f dSocket ) ; \ 
f printf ( stderr, "Error Sending SIDs to Kernel\n");\ 
return -1;\ 

} 

#define Shast raldTagln ( f iledesc, pShaIdTag)\ 

if (shastraIdTagIn(pHostKernel->fdSocket, pShaldTag) == -1)\ 

U 

pHostKernel->f Status = shaError;\ 

closedChannelCleanupHandler(pHostKernel->f dSocket ) ; \ 

f printf ( stderr, "Error Receiving SIDTag from Kernel\n");\ 

return -1;\ 

} 

#define Shast raldTagOut ( f iledesc, pShaIdTag)\ 

if (shastraIdTagOut(pHostKernel->fdSocket, pShaldTag) == -1)\ 

{\ 

pHostKernel->f Status = shaError;\ 

closedChannelCleanupHandler(pHostKernel->f dSocket ) ; \ 
f printf ( stderr, "Error Sending SIDTag to Kernel\n");\ 
return -1;\ 

} 

#define Shast raldTagsIn ( f iledesc, pShaIdTags)\ 

if (shastraIdTagsIn(pHostKernel->fdSocket, pShaldTags) == -1)\ 

{\ 

pHostKernel->f Status = shaError;\ 

closedChannelCleanupHandler(pHostKernel->f dSocket ) ; \ 

f printf ( stderr, "Error Receiving SIDTags from Kernel\n");\ 

return -1;\ 

} 

#define Shast raldTagsOut ( f iledesc, pShaIdTags)\ 

if (shastraIdTagsOut(pHostKernel->fdSocket, pShaldTags) == -1)\ 
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u 

pHostKernel->f Status = shaError;\ 

closedChannelCleanupHandler(pHostKernel->f dSocket ) ; \ 
f printf ( stderr, "Error Sending SIDTags to Kernel\n");\ 
return -1;\ 

} 

#define Shast raULongln ( f iledesc, pULong)\ 

if (shaULongIn(pHostKernel->fdSocket, pULong) == -1)\ 

{\ 

pHostKernel->f Status = shaError;\ 

closedChannelCleanupHandler(pHostKernel->f dSocket ) ; \ 

f printf ( stderr, "Error Receiving pULong from Kernel\n");\ 

return -1;\ 

} 

#define Shast raULongOut ( f iledesc, pULong)\ 

if (shaULongOut(pHostKernel->fdSocket, pULong) == -1)\ 

U 

pHostKernel->f Status = shaError;\ 

closedChannelCleanupHandler(pHostKernel->f dSocket ) ; \ 
f printf ( stderr, "Error Sending pULong to Kernel\n");\ 
return -1;\ 

} 



/* 

* Function 
*/ 
int 

startSystemReq(pHostKr, pCreateSId) 
hostData *pHostKr; 
shastrald *pCreateSId; 

{ 

char *sName; 
shastrald *pSId; 
shastraldTag *pSIdTag; 
struct hostent *pHostEnt; 
int krlndex; 
int fMine = 0; 
unsigned int temp; 

if (pCreateSId == NULL){ 

fprintf (stderr, "startSystemReq( )-> bad args!\n"); 
return -1; 

} 

if ((pHostEnt = gethostbyname(pCreateSId->nmHost) ) == NULL) { 
pe r ror( "get host by name ( ) " ) ; 

sprintf ( pFrontAppData->sbMsgBuf , "Bad Host %s\n", pCreateSId->nmHost ) ; 
showS ha st ralnf o( pFrontAppData->sbMsgBuf ) ; 
return -1; 

} 

memcpy(&temp, &pHostEnt->h_add r_list [0] [0] , 4); 
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pCreateSId->lIPAddr = ntohl(temp) ; 
printf("%lu — %s\n", pCreateSId->HPAdd r, 
ipaddr2str(pCreateSId->HPAddr) ) ; 

pCreateSId->lSIDTag = 0; 
pCreateSId->dLoadAvg = 0; 
pCreateSId->nmUser = pFrontSId->nmUser; 
pCreateSId->iPort = 0; 
pCreateSId->iProcId = 0; 

if (pFrontAppData->iDbgl_evel) { 
outputld ( stdout, pCreateSId); 

} 

if ((krlndex = locateByNameKernFronts ( pCreateSId ) ) != -1) { 
pSIdTag = KernFrontSIdTag ( krlndex) ; 
pSId = getSIdByTagInSIds(pSIdTag, &shast raKernlds ) ; 
if ( ! strcmp(pSId->nmUser, pFrontSId->nmUser) ){ 
fMine = 1; 

} 

} 

/*CHECK — force rsh*/ 
if (fMine | | !fMine){ 

sName = resolveNameFrom2Bases ( pFrontAppData->sDirBase, 
pFrontAppData->sDirBin, 
pFrontAppData->sRemStart) ; 
startShastraSystem(pCreateSId, sName) ; 

} 

else{ 

checkConn( ) ; 

sendReqSt ring ( REQ_START_SYSTEM, NULL) ; 
ShastraIdOut(pHostKernel->fdSocket, pCreateSId) ; 
cmFlush(pHostKernel->fdSocket) ; 

} 

return 0; 



/* 

* Function 
*/ 
int 

startSystemRespHandler(fd) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_START_SYSTEM) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

endSystemReq(pHostKr, pSId) 
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hostData *pHostKr; 
shastrald *pSId; 

{ 

if (pSId == NULL){ 

fprintf (stderr,"endSystemReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_END_SYSTEM, NULL) ; 
ShastraIdOut(pHostKernel->fdSocket, pSId) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

endSystemRespHandler( f d) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_END_SYSTEM) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 

int 

connectSystemReq(pHostKr, pSId) 
hostData *pHostKr; 
shastrald *pSId; 

{ 

if (pSId == NULL){ 

fprintf (stderr,"connectSystemReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_CONNECT_SYSTEM, NULL) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

connect SystemRespHandler ( f d ) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_CONNECT_SYSTEM) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
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return 0; 

} 

/* 

* Function 
*/ 

int 

setShastraIdReq(pHostKr, pSId) 
hostData *pHostKr; 
shastrald *pSId; 

{ 

if (pSId == NULL){ 

fprintf (stderr,"setShastraIdReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_SET_SHASTRAID, NULL) ; 
ShastraIdOut(pHostKernel->fdSocket, pSId) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

setShastraldRespHandler(fd) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_SET_SHASTRAID) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

getShaKernldReq(pHostKr) 

hostData *pHostKr; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_SHAKERNID, NULL) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

getShaKernldRespHandler(fd) 
int fd; 
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Shastraldsln(fd, &shast raKernlds ) ; 
if (pFrontAppData->iDbgLevel) { 

outputlds ( stderr, &shast raKernlds ) ; 

} 

ad j ustKrFrMapSize( s hast raKernlds . shast ralds_len) ; 
updateKrFrMap(&shastraKernIds) ; 

setKernelNamesOprn( ) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_GET_SHAKERNID) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 

int 

getShaKernFrIdReq(pHostKr, pSId) 
hostData *pHostKr; 
shastrald *pSId; 

{ 

if (pSId == NULL){ 

fprintf (stderr, "getShaKernFrldReq ( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_SHAKERNFRID, NULL) ; 
ShastraIdOut(pHostKernel->fdSocket, pSId) ; 

cmFlush(pHostKernel->fdSocket) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

getShaKernFrldRespHandler(fd) 
int fd; 

{ 

int iObjlndex; 
static shastrald inShald; 
static shastralds inShalds; 
shastralds *pSIds; 
int krlndex; 

fprintf ( stderr, "Should be getting front Id's!\n"); 
Shastraldln(fd, &inShaId); 
krlndex = locateKernFronts (&inShaId ) ; 
if (krlndex == -1) { 
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krlndex = occupyKrFrFreeSlot (&inShaId ) ; 

} 

pSIds = getKernFrontSIds(&inShaId) ; 
Shastraldsln(fd, pSIds); 
if (pFrontAppData->iDbgLevel) { 
outputlds ( stderr, pSIds); 

} 

setKernelFrontNamesOprn( inShald . ISIDTag) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_GET_SHAKERNFRID) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

getShaSesmldReq(pHostKr) 

hostData *pHostKr; 

{ 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_SHASESMID, NULL) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

getShaSesmIdRespHandler(f d) 
int fd; 

{ 

Shastraldsln(fd, &shast raSesmlds ) ; 
if (pFrontAppData->iDbgLevel) { 

outputlds ( stderr, &shast raSesmlds ) ; 

} 

ad j ustSmFrMapSize( s hast raSesmlds . shast ralds_len) ; 
updateSmFrMap(&shastraSesmIds) ; 

setSesMgrNamesOprn( ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_GET_SHASESMID) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
return 0; 



/* 

* Function 
*/ 
int 
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getShaSesmFrIdReq(pHostKr, pSIdTag) 
hostData *pHostKr; 
shastraldTag *pSIdTag; 

{ 

if(pSIdTag == NULL){ 

fprintf (stderr,"getShaSesmFrIdReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_GET_SHASESMFRID, (char*) NULL); 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 
int 

getShaSesmFrIdRespHandler(f d) 
int fd; 

{ 

int smlndex; 
shastraldTag inShaldTag; 
static shastraldTags inShaldTags; 
static shastraldTags inShaPermTags ; 
shastraldTags *pSIdTags; 
shastraldTags *pPermTags; 

ShastraIdTagIn(fd, &inShaIdTag ) ; 
smlndex = locateSesmFronts (&inShaIdTag ) ; 
if (smlndex == -1) { 

fprintf (stderr, M getShaSesmFrIdRespHandler( )->can 1 t locate sesMgr!\n"); 

ShastraIdTagsIn(fd, &inShaIdTags ) ; 

ShastraIdTagsIn(fd, &inShaPermTags ) ; 

return -1; 

} 

pSIdTags = getSesmFrontSIdTags(&inShaIdTag) ; 

ShastraIdTagsIn(fd, pSIdTags); 

pPermTags = getSesmFrontPermTags (&inShaIdTag ) ; 

ShastraIdTagsIn(fd, pPermTags); 

if (pFrontAppData->iDbgLevel) { 

outputldTags ( stderr, pSIdTags); 

outputldTags ( stderr, pPermTags); 

} 

updateSmFrMap(&shastraSesmIds) ; 
setSesMg rFrontNamesOprn (inShaldTag) ; 
set Co HabFrontPermsOprn( inShaldTag); 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_GET_SHASESMFRID) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 
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/* 

* Function 
*/ 
int 

helpReq(pHostKr) 

hostData *pHostKr; 

{ 

checkConn( ) ; 

sendReqString(REQ_HELP, NULL); 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

helpRespHandler(fd) 

int fd; 

{ 

standardHelpRespHandler(f d) ; 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_HELP) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

shaFrontQuitReq(pHostKr) 

hostData *pHostKr; 

{ 

if ( (pHostKernel != NULL) && ( pHostKe rnel->f Status != shaError)) { 
sendReqString(REQ_QUIT, NULL); 
cmFlush(pHostKernel->fdSocket) ; 
quit Res pHandler(pHostKernel->f dSocket ) ; 

} 

else{ 

quitRespHandler(0) ; 

} 

return 0; 

} 

/* 

* Function 
*/ 

int 

quit Res pHandler(fd) 

int fd; 



Page 11 of 34 



front_client.c 



7/5/1 1 1 1 :53 AM 



sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_QUIT) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 

if (pHostKernel){ 

fd = pHostKernel->fdSocket; 

} 

mplexUnRegisterChannel(fd) ; 
XtDest royApplicationContext ( 

XtWidgetToApplicationContext(pFrontAppData->wgTop) ) ; 

exit(0) ; 
return 0; 



/* 

* Function 
*/ 
int 

clntConnectReq(pHostKr, pSId, pCmdData) 
hostData *pHostKr; 
shastrald *pSId; 
shaCmdData *pCmdData; 

{ 

int status; 
int clntSocket; 
hostData *pHost; 

if((pSId == NULL) || (pCmdData == NULL)){ 

fprintf (stderr,"clntConnectReq( )-> bad args!\n"); 
return -1; 

} 

if (pCmdData == NULL){ 

fprintf ( stderr, "clntConnectReq ( )-> Warning.. No Control Data!\n"); 

} 

if (pFrontAppData->iDbgLevel) { 
outputld ( stdout, pSId); 

} 

status = cmClientConnect2Server(pSId->nmHost, pSId->nmApplicn, 

pSId->iPort, &clntSocket) ; 
if (status == -1) { 

sprintf (pFrontAppData->sbMsgBuf, "clientConnectReq ( ) — Couldn't connect 
\n"); 

showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
return -1; 
} else { 

sprintf (pFrontAppData->sbMsgBuf, "clientConnectReq ( ) — connect ed\n" ) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 

} 

shaKernFlags [clntSocket] = SHAFRONT; 

pHost = (hostData *) malloc ( sizeof ( hostData )) ; 

memset ( pHost, 0, sizeof (hostData) ) ; 
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pHost->f dSocket = clntSocket; 
pHost->lSIDTag = pSId->lSIDTag ; 
pHost->pSId = copyId(pSId, NULL); 
pHost->sendList = listMakeNew( ) ; 
pHost->recvList = listMakeNew( ) ; 
pHost->fStatus = shaWait2Send; 

if (locateClientHosts(pSId) == -1) { 
occupyClHostFreeSlot(pSId) ; 

} 

updateAddClHost(pSId, pHost); 

if (clientConnectFunc != NULL) { 

(*clientConnectFunc) (pHost); 
} else { 

showShastraInfo("clntConnectReq( ) — Error! No handler"); 

} 

setClSvrServerNamesOprn(pSId) ; 
clSvrSetCurrHostOprn(pHost, False) ; 

if (mplexRegisterChanneK pHost->f dSocket, shaClientHandler, 
pCmdData, (char *) pHost) == -1) { 
f printf ( stderr, "clntConnectReq( )->Couldn 't Register Client Handler! !\ 
n"); 

pHost->f Status = shaError; 
return -1; 

} 

mplexSetHostData(pHost->fdSocket, pHost) ; 

if((pHostKr = mplexGetHostData(pHost->fdSocket) ) != pHost){ 

f printf (stderr, "clntConnectReq ( )->mplexSet Host Data problem ! \n" ) ; 

} 

/* 

cmJoinCmdData (&f rontCollCmdData, pCmdData); join to standard client 
handling 

*/ 

return 0; 



/* 

* Function 
*/ 
int 

clntTerminateReq(pHostKr, pHost) 
hostData *pHostKr; 
hostData *pHost; 

{ 

if (pHost == NULL){ 

f printf ( stderr, "clntTerminateReq( )->Bad Args!\n"); 
return -1; 

} 

c Int Disconnect Hand ler(pHost->f dSocket ) ; 
mp lexUnReg is terChannel(pHost->f dSocket ) ; 
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/*CHECK technically, should send quit req, and response should do all this* 
/ 

} 

int 

c Int Disconnect Hand ler(fd) 
int fd; 

{ 

hostData *pHost; 
shastrald *pSIdSvr; 
shastraldTag *pSIdTag; 

pHost = mplexGetHostData(fd) ; 
pSIdTag = &pHost->lSIDTag ; 
pSIdSvr = pHost->pSId; 
if (pSIdSvr == NULL) { 

fprintf (stderr, "clntDisconnectHandler( )->Missing Host System!\n"); 

return -1; 

} 

updateRmvClHostByIdTag(pSIdSvr, pSIdTag) ; 
setClSvrServerNamesOprn(pSIdSvr) ; 
clSvrResetCurrHostOprn(pSIdSvr, True) ; 
if ( clientTerminateFunc != NULL) { 

(*clientTerminateFunc) (pHost); 
} else { 

showShastraInfo("clntDisconnectRespHandler( ) — Error! No handler\n"); 

} 

/* 

f ree(pHost->pSId, free(pHost); 

*/ 



/* 

* Function 
*/ 
int 

clntTerminateServerReq(pHostKr, pHost ) 
hostData *pHostKr; 
hostData *pHost; 

{ 

if (pHost == NULL){ 

fprintf (stderr, M clntTerminateServerReq( )->Bad Args!\n"); 
return -1; 

} 

checkConn( ) ; 

send Req St ring ( REQ_TERMINATE, NULL) ; 
cmFlush(pHost->fdSocket) ; 
return 0; 

c Int Dis connect Hand ler ( pHost->f d Socket ) ; 
mplexUnRegisterChannel(pHost->f dSocket ) ; 
/*CHECK technically, should send quit req, and response should do all this* 
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/ 

} 

/* 

* Function 
*/ 
int 

collInitiateReq(pHostKr, pSIdTags, perms, lldTag) 
hostData *pHostKr; 
shastraldTags *pSIdTags; 
unsigned long perms, lldTag; 

{ 

if(pSIdTags == NULL){ 

fprintf (stderr,"collInitiateReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_INITIATE, NULL) ; 
ShastraIdTagsOut(pHostKernel->fdSocket, pSIdTags) ; 
ShastraULongOut(pHostKernel->fdSocket, &perms) ; 
ShastraULongOut(pHostKernel->fdSocket, &lIdTag) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

collInitiateRespHandler(fd) 
int fd; 

{ 

if (collablnitiateFunc != NULL) { 
(*collabInitiateFunc) (NULL); 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COLL_INITIATE) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collAutoInitiateReq(pHostKr, pSIdTags, perms, lldTag) 
hostData *pHostKr; 
shastraldTags *pSIdTags; 
unsigned long perms, lldTag; 

{ 

if(pSIdTags == NULL){ 

fprintf ( stderr, "collAutoInitiateReq ( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 
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sendReqSt ring ( REQ_COLL_AUTOINITIATE, NULL) ; 
ShastraIdTagsOut(pHostKernel->fdSocket, pSIdTags) ; 
ShastraULongOut(pHostKernel->fdSocket, &perms) ; 
ShastraULongOut(pHostKernel->fdSocket, &UdTag) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

collAutoInitiateRespHandler ( f d ) 
int fd; 

{ 

if (collablnitiateFunc != NULL) { 
(*collabInitiateFunc) (NULL); 

} 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COLL_AUTOINITIATE) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 
*/ 
int 

collAskJoinReq(pHostKr, pSmSIdTag, pSIdTag) 
hostData *pHostKr; 
shastraldTag *pSmSIdTag; 
shastraldTag *pSIdTag; 

{ 

if ( (pSmSIdTag == NULL) || (pSIdTag == NULL)){ 

fprintf (stderr,"collAskJoinReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqString(REQ_COLL_ASKJOIN, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

collAskJoinRespHandler(fd) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_COLL_ASKJOIN) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
return 0; 
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} 



*/ 

int 

collInviteJoinReq(pHostKr, pSmSIdTag, pSIdTag, pLdrSIdTag, pPermTag) 



hostData 
shastraldTag 
shastraldTag 
shastraldTag 
shastraldTag 



*pHostKr; 
*pSmSIdTag; 
*pSIdTag; 
*pLdrSIdTag; 
*pPermTag ; 



NULL 



|| (pLdrSIdTag 
bad args ! \n" ) ; 



if ( (pSmSIdTag == NULL) || (pSIdTag == 
| | (pPermTag == NULL) ){ 
f print f ( stderr, "collInviteJoinReq ( ) 
return -1; 

} 

checkConn( ) ; 

sendReqString(REQ_COLL_INVITEJOIN, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pLdrSIdTag) 
ShastraIdTagOut(pHostKernel->fdSocket, pPermTag) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



} 



ollInviteJoinRespHandler(f d) 
int fd; 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n" 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



REQ_COLL_INVITEJOIN) ; 



/* 

* Function 
*/ 
int 

collTellJoinReq(pHostKr, pSmSIdTag, pSIdTag, pPermTag) 
hostData *pHostKr; 
shastraldTag *pSmSIdTag; 
shastraldTag *pSIdTag; 
shastraldTag *pPermTag; 

{ 

if ( (pSmSIdTag == NULL) || (pSIdTag == NULL) || (pPermTag == NULL)){ 
fprintf (stderr, "collTellJoinReq ( )-> bad args!\n"); 
return -1; 

} 
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checkConn( ) ; 

sendReqSt ring ( REQ_COLL_TELLJOIN , NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pPermTag) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 
*/ 

int 

collTeUJoinRespHandler(fd) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COLL_TELLJOIN) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 

*/ 

colli nvit eRes pHand ler ( fd ) 
int fd; 

{ 

shastraldTag sesmSIdTag; 
shastraldTag frontSIdTag; 
shastraldTag leaderSIdTag ; 
shastraldTag f rontPermTag; 

ShastraIdTagIn(fd, &sesmSIdTag ) ; 
ShastraIdTagIn(fd, &f rontSIdTag ) ; 
ShastraIdTagIn(fd, &leaderSIdTag) ; 
ShastraIdTagIn(fd, &f rontPermTag) ; 

/* 

collJoinPromptOprn( sesmSIdTag, leaderSIdTag, f rontPermTag) ; 
*/ 

collabInvitePromptOprn(sesmSIdTag, leaderSIdTag, f rontPermTag ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (end)— %s\n", REQ_COLL_INVITEJOIN 
); 

showShast ralnf o( pFrontAppData->sbMsgBuf) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 
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coUTeUJnRespHandler(fd) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag sldTag; 
shastraldTag permTag; 
shastrald *pSId; 
shaCmdData *pCmdData = NULL; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
ShastraIdTagIn(fd, &permTag); 
pSId = mapSIdTag2SId(&smSIdTag) ; 
if (collabCont rolDataFunc) { 

(*collabCont rolDataFunc) ( shast raNameToService(pSId->nmApplicn) , & 

pCmdData) ; 
if(pCmdData == NULL){ 

f p rintf ( stde rr, "collTellJnRespHandler( )->Invalid Control Data ! \n" ) ; 

} 

} 

else{ 

fprintf (stderr,"collTellJnRespHandler()->Can't Obtain Control Data!\n") 

} 

collJoinReq( (hostData*)NULL, pSId, &permTag, pCmdData); 

sprintf (pFrontAppData->sbMsgBuf , "Done (end) — %s\n", REQ_COLL_TELLJOIN) 

showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 



/* 

* Function 
*/ 

int 

terminateHandler( i) 

int i; 

{ 

sprintf (pFrontAppData->sbMsgBuf, "Done — %s\n", REQ_TERMINATE) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
shaFrontQuitReq(pHostKernel) ; 
return 0; 

} 

/* 

* Function 
*/ 

int 

closedChannelCleanupHandler (f d) 
int fd; 

{ 

hostData *pHost; 
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pHost = mplexGetHostData(fd) ; 
if (pHost == NULL) { 

fprintf (stderr, "closedChannelCleanupHandler(%d )->NULL Host data!\n", 
fd); 

} 

else{ 

if (shaKernFlags [fd] == SHAKERNEL) { 

f print f( stderr, M closedChannelCleanupHandler(%d)->Kernel Disconnected 
!\n", 
fd); 

kernelDisconnectHandler ( f d ) ; 
} else if (shaKernFlags [fd] == SHASESMGR) { 

collLeaveRespHandler(fd) ; 
} else if (shaKernFlags [fd] == SHAFRONT) { 

clntDisconnectHandler(fd) ; 

} 

} 

mplexUnRegisterChannel(fd) ; 
return 0; 



/* 

* Function 

*/ 

int collInviteMsgReq(pHostKr, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pSmSIdTag; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

if ( (pSmSIdTag == NULL) || (pSIdTag == NULL) || (pToSIdTag == NULL)){ 
fprintf (stderr, "collInviteMsgReq ( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_INVITEMSG, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

int collInviteMsgRespHandler(fd) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COLL_INVITEMSG) ; 
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showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 

*/ 

int collInviteMsgHandler(fd) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 

collabRecvdInviteMessageOprn(smSIdTag, sldTag, sMsg); 

sprintf (pFrontAppData->sbMsgBuf , "Done (in) — %s\n", REQ_COLL_INVITEMSG) 

showShast ralnf o( pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 

*/ 

int collInvRespMsgReq(pHostKr, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pSmSIdTag; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

if ( (pSmSIdTag == NULL) || (pSIdTag == NULL) || (pToSIdTag == NULL)){ 
fprintf (stderr,"collInviteJoinReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_INVRESPMSG, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 
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*/ 

int collInvRespMsgRespHandler ( f d ) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COLL_INVRESPMSG) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 

int collInvRespMsgHandler ( f d ) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 

collabRecvdInvRespMessageOprn(smSIdTag, sldTag, sMsg); 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_COLL_INVRESPMSG 
); 

showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 

*/ 

int collInviteStatusReq(pHostKr, pSmSIdTag, pToSIdTag, pSIdTag, IStatus) 
hostData* pHostKr; 
shastraldTag *pSmSIdTag; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
shaULong IStatus; 

{ 

if ( (pSmSIdTag == NULL) || (pSIdTag == NULL) || (pToSIdTag == NULL)){ 
fprintf ( stderr, "collInviteStatusReq ( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_INVITESTATUS, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
ShastraULongOut(pHostKernel->fdSocket, &lStatus) ; 
cmFlush(pHostKernel->fdSocket) ; 
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return 0; 

} 

/* 

* Function 

*/ 

int colli nviteStatusRespHandler(f d) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COLL_INVITESTATUS) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 

} 

/* 

* Function 

*/ 

int collInviteStatusHandler(fd) 
int fd; 



{ 

shastraldTag smSIdTag; 

shastraldTag toSIdTag; 

shastraldTag sldTag; 

shaULong IStatus; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
ShastraULongIn(fd, &lStatus); 

collabShowInviteStatusOprn(smSIdTag, toSIdTag, sldTag, IStatus); 
sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_COLL_INVITESTATUS) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
return 0; 

} 

/* 

* Function 

*/ 

int collAskJoinMsgReq(pHostKr, pSmSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pSmSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 



{ 



if ( (pSmSIdTag == NULL) || (pSIdTag == NULL)){ 

fprintf (stderr,"collAskJoinMsgReq( )-> bad args!\n" 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_ASKJOINMSG, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
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sendDataString(sbMsg) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

int collAskJoinMsgRespHandler(f d) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COLL_ASKJOINMSG) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 

int collAskJoinMsgHandler(f d) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag sldTag; 
char *sMsg; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 

collabRecvdAskJoinMessageOprn(smSIdTag, sldTag, sMsg); 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_COLL_ASKJOINMSG 
); 

showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 

*/ 

int collAskJnRespMsgReq(pHostKr, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pSmSIdTag; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

if ( (pSmSIdTag == NULL) || (pSIdTag == NULL) || (pToSIdTag == NULL)){ 
fprintf ( stderr, "collAskJnRespMsgReq ( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_ASKJNRESPMSG, NULL) ; 
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ShastraIdTagOut(pHostKernel->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

int collAskJnRespMsgRespHandler(f d) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COLL_ASKJNRESPMSG) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 

int collAskJnRespMsgHandler(fd) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 

collabRecvdAskJnRespMessageOprn ( smSIdTag, sldTag, sMsg); 
sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_COLL_ASKJNRESPMSG) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 

*/ 

int collAskJnStatusReq(pHostKr, pSmSIdTag, pToSIdTag, pSIdTag, IStatus) 
hostData* pHostKr; 
shastraldTag *pSmSIdTag; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
shaULong IStatus; 

{ 

if ( (pSmSIdTag == NULL) || (pSIdTag == NULL) || (pToSIdTag == NULL)){ 
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f printf ( stderr, 
return -1; 



M collAskJnStatusReq( )-> bad args!\n"); 



} 

checkConn( ) ; 

sendReqSt ring ( REQ_COLL_ASKJNSTATUS, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
ShastraULongOut(pHostKernel->fdSocket, &lStatus) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



* Function 

*/ 

int collAskJnStatusRespHandler(f d ) 
int fd; 



sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n" 
showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



REQ_COLL_ASKJNSTATUS) ; 



* Function 

*/ 



int collAskJnStatusHandler(fd) 
int fd; 



shastraldTag 
shastraldTag 
shastraldTag 
shaULong 



smSIdTag; 
toSIdTag; 
sldTag; 
IStatus; 



ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
ShastraULongIn(fd, &lStatus); 

collabShowAskJoinStatusOprn(smSIdTag, toSIdTag, sldTag, 
sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_COLL_ASKJNSTATUS) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
return 0; 



IStatus) ; 



/* 

* Function 

*/ 

int commMsgTextReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
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char *sbMsg; 

{ 

if((pSIdTag == NULL) || (pToSIdTag == NULL)){ 

fprintf (stderr,"collInviteJoinReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGTEXT, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgTextRespHandler(fd) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COMM_MSGTEXT) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgTextHandler(fd) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 
shastraRecvdMessageOprn(sIdTag, sMsg) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_COMM_MSGTEXT) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgTextFileReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
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char *sbMsg; 

{ 

if((pSIdTag == NULL) || (pToSIdTag == NULL)){ 

fprintf (stderr,"commMsgTextFileReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGTEXTFILE, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgTxtFileRespHandler(f d) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COMM_MSGTEXTFILE) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgTxtFileHandler(f d) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_COMM_MSGTEXTFILE) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgAudioReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
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char *sbMsg; 

{ 

if((pSIdTag == NULL) || (pToSIdTag == NULL)){ 

fprintf (stderr,"commMsgAudioReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqString(REQ_COMM_MSGAUDIO, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgAudioRespHandler(fd) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COMM_MSGAUDIO) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgAudioHandler(fd) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_COMM_MSGAUDIO) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgAudioFileReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 
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if((pSIdTag == NULL) || (pToSIdTag == NULL)){ 

fprintf ( stderr, "commMsgAudioFileReq ( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGAUDIOFILE, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgAudioFileRespHandler(f d) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COMM_MSGAUDIOFILE) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgAudioFileHandler(fd) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_COMM_MSGAUDIOFILE) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgVideoReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 
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if((pSIdTag == NULL) || (pToSIdTag == NULL)){ 

fprintf (stderr,"commMsgVideoReq( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqString(REQ_COMM_MSGVIDEO, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgVideoRespHandler(fd) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COMM_MSGVIDEO) ; 
showShast ralnf o( pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgVideoHandler(fd) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", REQ_COMM_MSGVIDEO) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgVideoFileReq(pHostKr, pToSIdTag, pSIdTag, sbMsg) 
hostData* pHostKr; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 



Page 31 of 34 



front_client.c 



7/5/1 1 1 1 :53 AM 



if((pSIdTag == NULL) || (pToSIdTag == NULL)){ 

fprintf ( stderr, "commMsgVideoFileReq ( )-> bad args!\n"); 
return -1; 

} 

checkConn( ) ; 

sendReqSt ring ( REQ_COMM_MSGVI DEO FILE, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pToSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
sendDataString(sbMsg) ; 
cmFlush(pHostKernel->fdSocket) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgVideoFileRespHandler(f d) 
int fd; 

{ 

sprintf (pFrontAppData->sbMsgBuf , "Done — %s\n", REQ_COMM_MSGVIDEOFILE) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf ) ; 
return 0; 



/* 

* Function 

*/ 

int commMsgVideoFileHandler(fd) 
int fd; 

{ 

shastraldTag toSIdTag; 
shastraldTag sldTag; 
char *sMsg; 

ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 

sprintf (pFrontAppData->sbMsgBuf, "Done (in) — %s\n", 

REQ_COMM_MSGVI DEO FILE ) ; 
showShast ralnf o(pFrontAppData->sbMsgBuf) ; 
f ree(sMsg) ; 
return 0; 



int 

f rontKernelConnectReq (pSId) 
shastrald *pSId; 

{ 

int iStatus, iSocket; 
hostData *pHost; 

if (pHostKernel){ 
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return 0; 

} 

if (pSId == NULL){ 
pSId = pFrontSId; 

} 

iStatus = cmClientConnect2Server(pSId->nmHost, SHASTRA_SERVICE_NAME, 0, 

&iSocket) ; 
if (iStatus == -1){ 
return -1; 

} 

f rontCmdData . pCmdTab = frontCmdTab; 
f rontCmdData . nCmds = frontNCmds; 
f rontCmdData . pCmdTabln = f rontlnCmdTab; 
f rontCmdData . nCmdsIn = f rontlnNCmds; 

if (mplexRegisterChanneK iSocket, shaClientHandler, 

&f rontCmdData, (char *) pHostKernel) == -1) { 
fprintf (stderr, "mplexRegisterChanneK )->Error ! \n" ) ; 
close(iSocket) ; 
return -1; 

} 

pHostKernel = ( hostData*) malloc ( sizeof (hostData) ) ; 
memset ( pHostKernel, 0, sizeof (hostData) ) ; 

shaKernFlags [iSocket] = SHAKERNEL; 
pHostKernel->f dSocket = iSocket; 
pHostKernel->sendl_ist = listMakeNew( ) ; 
pHostKernel->recvList = listMakeNew( ) ; 
pHostKernel->fStatus = shaWait2Send ; 

mplexSetHostData(pHostKernel->f dSocket, pHostKernel) ; 
if((pHost = mplexGetHostData(pHostKernel->fdSocket) ) != pHostKernel) { 
fprintf (stderr, "f ront Kerne IConnectReq ( )->mplexSet Host Data problem ! \n" ) ; 

} 

setShastraIdReq(pHostKernel, pSId) ; 
return 0; 

} 

int 

f ront KernelDis connect Req(pSId) 
shastrald *pSId; 

{ 

checkConn( ) ; 

sendReqString(REQ_QUIT, NULL); 
cmFlush(pHostKernel->fdSocket) ; 

ke r ne ID is con n ec t Ha n d le r ( pHo st Kerne l->f dSocket ) ; 

} 

int 
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kernelDisconnectHandler(fd) 
int fd; 

{ 

if (pHostKernel != NULL){ 
fd = pHostKernel->fdSocket; 

listDestroy(pHostKernel->sendList, 1) ; 
listDestroy(pHostKernel->recvList, 1) ; 
f ree( pHostKernel) ; 
pHostKernel = NULL; 

} 

mplexUnRegisterChannel(fd) ; 

} 
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